Commit a668601c authored by bouazizrahma's avatar bouazizrahma Committed by Jerome Hugues
Browse files

add a macro in deployment.h to enable the generation of vcd file for each...

add a macro in deployment.h to enable the generation of vcd file for each process having the name of the process
parent 4333b46a
...@@ -893,6 +893,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -893,6 +893,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
The_System : constant Node_Id := The_System : constant Node_Id :=
Parent_Component (Parent_Subcomponent (E)); Parent_Component (Parent_Subcomponent (E));
Device_Implementation : Node_Id; Device_Implementation : Node_Id;
Node_Name : Name_Id;
begin begin
pragma Assert (AAU.Is_System (Root_Sys)); pragma Assert (AAU.Is_System (Root_Sys));
...@@ -928,6 +929,22 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -928,6 +929,22 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
(Map_C_Enumerator_Name (Parent_Subcomponent (E)))); (Map_C_Enumerator_Name (Parent_Subcomponent (E))));
Append_Node_To_List (N, CTN.Declarations (Current_File)); Append_Node_To_List (N, CTN.Declarations (Current_File));
Node_Name :=
Map_C_Enumerator_Name (Parent_Subcomponent (E));
Set_Str_To_Name_Buffer ("");
Get_Name_String (Token_Image (Tok_Quote));
Get_Name_String_And_Append (Node_Name);
Get_Name_String_And_Append (Token_Image (Tok_Quote));
Node_Name := Name_Find;
N :=
Make_Define_Statement
(Defining_Identifier => RE (RE_My_Node_Name),
Value =>
Make_Defining_Identifier (Node_Name));
Append_Node_To_List (N, CTN.Declarations (Current_File));
-- Visit all devices attached to the parent system that -- Visit all devices attached to the parent system that
-- share the same processor as process E. -- share the same processor as process E.
......
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