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

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
W : Node_Id;
N : Name_Id;
F : Node_Id;
Existing_Include : Node_Id;
Existing_Def : Node_Id;
begin
Set_Str_To_Name_Buffer ("deployment");
Get_Name_String_And_Append (CTN.Name (E));
......@@ -2098,10 +2098,10 @@ package body Ocarina.Backends.C_Tree.Nutils is
(CTN.Name (CTN.Entity (Table (Last).Current_Entity)));
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 Present (Existing_Include) then
if Present (Existing_Def) then
return;
end if;
......
......@@ -521,16 +521,10 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
Driver_Name := Name_Find;
Driver_Name := To_Upper (Driver_Name);
Append_Node_To_List
(Make_Define_Statement
(Defining_Identifier =>
Add_Define_Deployment
(Make_Defining_Identifier
(Driver_Name,
C_Conversion => False)),
Value =>
(Make_Literal
(CV.New_Int_Value (1, 1, 10)))),
CTN.Declarations (Current_File));
C_Conversion => False));
end if;
end if;
......
Markdown is supported
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