Commit 99bf0642 authored by julien.delange's avatar julien.delange
Browse files

serial example works again



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@595 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent c43a49d9
...@@ -279,7 +279,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -279,7 +279,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
procedure Visit_Device_Instance (E : Node_Id) is procedure Visit_Device_Instance (E : Node_Id) is
Implementation : constant Node_Id := Get_Implementation (E); Implementation : constant Node_Id := Get_Implementation (E);
N : Node_Id; N : Node_Id;
Conf_Str : Name_Id; Conf_Str : Name_Id := No_Name;
Tmp_Name : Name_Id; Tmp_Name : Name_Id;
begin begin
Current_Device := E; Current_Device := E;
...@@ -310,8 +310,15 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -310,8 +310,15 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
if Get_Location (E) /= No_Name then if Get_Location (E) /= No_Name then
Get_Name_String (Get_Location (E)); Get_Name_String (Get_Location (E));
Add_Str_To_Name_Buffer (":"); Conf_Str := Name_Find;
Add_Str_To_Name_Buffer (Value_Id'Image (Get_Port_Number (E))); if Get_Port_Number (E) /= Properties.No_Value then
Set_Str_To_Name_Buffer (":");
Add_Str_To_Name_Buffer
(Value_Id'Image (Get_Port_Number (E)));
Tmp_Name := Name_Find;
end if;
Get_Name_String (Conf_Str);
Get_Name_String_And_Append (Tmp_Name);
Conf_Str := Name_Find; Conf_Str := Name_Find;
elsif Is_Defined_Property (E, "deployment::channel_address") then elsif Is_Defined_Property (E, "deployment::channel_address") then
Set_Str_To_Name_Buffer Set_Str_To_Name_Buffer
...@@ -1369,7 +1376,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is ...@@ -1369,7 +1376,7 @@ package body Ocarina.Backends.PO_HI_C.Deployment is
Append_Node_To_List (N, CTN.Declarations (Current_File)); Append_Node_To_List (N, CTN.Declarations (Current_File));
end if; end if;
if not Is_Empty (CTN.Values (Devices_Array)) then if not Is_Empty (CTN.Values (Port_To_Devices)) then
N := Make_Expression N := Make_Expression
(Left_Expr => (Left_Expr =>
Make_Variable_Declaration Make_Variable_Declaration
......
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