Commit 26f70a87 authored by yoogx's avatar yoogx
Browse files

* Generate __po_hi_ports_protocol iff necessary

parent 3fb83816
...@@ -84,6 +84,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -84,6 +84,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
Global_Port_Queue_Size : Node_Id; Global_Port_Queue_Size : Node_Id;
Global_Port_Data_Size : Node_Id; Global_Port_Data_Size : Node_Id;
Global_Ports : List_Id; Global_Ports : List_Id;
Protocol_Identifier : Unsigned_Long_Long := 0;
function Is_Added (P : Node_Id; E : Node_Id) return Boolean; function Is_Added (P : Node_Id; E : Node_Id) return Boolean;
function Added_Internal_Name (P : Node_Id; E : Node_Id) return Name_Id; function Added_Internal_Name (P : Node_Id; E : Node_Id) return Name_Id;
...@@ -177,7 +178,6 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -177,7 +178,6 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
-- process. -- process.
Node_Identifier : Unsigned_Long_Long := 0; Node_Identifier : Unsigned_Long_Long := 0;
Protocol_Identifier : Unsigned_Long_Long := 0;
Global_Port_Identifier : Unsigned_Long_Long := 0; Global_Port_Identifier : Unsigned_Long_Long := 0;
Local_Port_Identifier : Unsigned_Long_Long := 0; Local_Port_Identifier : Unsigned_Long_Long := 0;
Entity_Identifier : Unsigned_Long_Long := 0; Entity_Identifier : Unsigned_Long_Long := 0;
...@@ -2181,6 +2181,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -2181,6 +2181,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
(CTN.Values (CTN.Values
(CTN.First_Node (CTN.Values (Protocols_Ports_Array)))) (CTN.First_Node (CTN.Values (Protocols_Ports_Array))))
and then not AAU.Is_Empty (Global_Ports) and then not AAU.Is_Empty (Global_Ports)
and then Protocol_Identifier > 0
then then
N := N :=
Make_Expression Make_Expression
......
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