Commit 6b7d905c authored by julien.delange's avatar julien.delange
Browse files

avoid the definition of multiple NEED maccro



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1002 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent a20ff45a
...@@ -2089,7 +2089,7 @@ package body Ocarina.Backends.C_Tree.Nutils is ...@@ -2089,7 +2089,7 @@ package body Ocarina.Backends.C_Tree.Nutils is
W : Node_Id; W : Node_Id;
N : Name_Id; N : Name_Id;
F : Node_Id; F : Node_Id;
Existing_Include : Node_Id; Existing_Def : Node_Id;
begin begin
Set_Str_To_Name_Buffer ("deployment"); Set_Str_To_Name_Buffer ("deployment");
Get_Name_String_And_Append (CTN.Name (E)); Get_Name_String_And_Append (CTN.Name (E));
...@@ -2098,10 +2098,10 @@ package body Ocarina.Backends.C_Tree.Nutils is ...@@ -2098,10 +2098,10 @@ package body Ocarina.Backends.C_Tree.Nutils is
(CTN.Name (CTN.Entity (Table (Last).Current_Entity))); (CTN.Name (CTN.Entity (Table (Last).Current_Entity)));
N := Name_Find; N := Name_Find;
Existing_Include := Node_Id (Get_Name_Table_Info (N)); Existing_Def := Node_Id (Get_Name_Table_Info (N));
-- If the file was already included, we return immediatly -- If the file was already included, we return immediatly
if Present (Existing_Include) then if Present (Existing_Def) then
return; return;
end if; end if;
......
...@@ -521,16 +521,10 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -521,16 +521,10 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
Driver_Name := Name_Find; Driver_Name := Name_Find;
Driver_Name := To_Upper (Driver_Name); Driver_Name := To_Upper (Driver_Name);
Append_Node_To_List Add_Define_Deployment
(Make_Define_Statement
(Defining_Identifier =>
(Make_Defining_Identifier (Make_Defining_Identifier
(Driver_Name, (Driver_Name,
C_Conversion => False)), C_Conversion => False));
Value =>
(Make_Literal
(CV.New_Int_Value (1, 1, 10)))),
CTN.Declarations (Current_File));
end if; end if;
end if; end if;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment