Commit c5be2d80 authored by jhugues's avatar jhugues
Browse files

* Add a others alternative to close th Naming_Table_List,

	  this is required in case some processes are not connected to
	  this bus.



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2642 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 568f9949
......@@ -397,6 +397,17 @@ package body Ocarina.Backends.PO_HI_Ada.Naming is
S := Next_Node (S);
end loop;
N := Make_Element_Association
(No_Node,
Make_Record_Aggregate
(Make_List_Id
(Make_Subprogram_Call
(RE (RE_To_HI_String),
Make_List_Id (Make_Literal (New_String_Value (No_Name)))),
Make_Literal (New_Integer_Value (0, 1, 10)),
RE (RE_Null_Address))));
Append_Node_To_List (N, Naming_Table_List);
-- Declare the Naming Table
N := Message_Comment
......
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