Commit d7ed830a authored by julien.delange's avatar julien.delange

* backends/ocarina-backends-po_hi_c-deployment.adb

   - The NB_NODES constant definition is now the same
     on all generated deployment.h file



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1857 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 12c81f7f
......@@ -114,6 +114,8 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
Global_Port_Model_Names : Node_Id;
Local_Port_List : List_Id;
Nb_Nodes_Node : Node_Id := No_Node;
Current_Process_Instance : Node_Id := No_Node;
Global_Port_To_Entity : Node_Id;
......@@ -739,10 +741,17 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
(Nb_Protected, 1, 10)));
Append_Node_To_List (N, CTN.Declarations (Current_File));
if Nb_Nodes_Node = No_Node then
Nb_Nodes_Node := Make_Literal (New_Int_Value (0, 1, 10));
end if;
CTN.Set_Value
(Nb_Nodes_Node,
New_Int_Value (Node_Identifier, 1, 10));
N := Make_Define_Statement
(Defining_Identifier => RE (RE_Nb_Nodes),
Value => Make_Literal
(New_Int_Value (Node_Identifier, 1, 10)));
Value => Nb_Nodes_Node);
Append_Node_To_List
(N, CTN.Declarations (Current_File));
......
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