Commit 9e4a679a authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

cleanup code

parent 1acc0d3b
......@@ -196,70 +196,8 @@ procedure AADL_Parser is
-- Pkg_Name : Name_Id := No_Name;
-- CPU_Classifier : Name_Id := No_Name;
-- CPU_Platform : Supported_Execution_Platform := Platform_None;
Conn : Node_Id;
Bound_Bus : Node_Id;
Src_Port : Node_Id;
Src_Name : Unbounded_String;
Dst_Name : Unbounded_String;
Dst_Port : Node_Id;
Bound_Bus_Name : Name_Id;
If1_Name : Name_Id := No_Name;
If2_Name : Name_Id := No_Name;
begin
if not Is_Empty (Connections (My_System)) then
Conn := First_Node (Connections (My_System));
while Present (Conn) loop
Bound_Bus := Get_Bound_Bus (Conn, False);
if Bound_Bus /= No_Node then
Bound_Bus_Name := Name
(Identifier (Parent_Subcomponent (Bound_Bus)));
Src_Port := Get_Referenced_Entity (Source (Conn));
Dst_Port := Get_Referenced_Entity (Destination (Conn));
If1_Name := Get_Interface_Name (Src_Port);
If2_Name := Get_Interface_Name (Dst_Port);
-- Get_Interface_Name is v1.3.5+ only
if If1_Name /= No_Name and If2_Name /= No_Name then
Src_Name := US (Get_Name_String (If1_Name));
Dst_Name := US (Get_Name_String (If2_Name));
else
-- Keep compatibility with v1.2
Src_Name := US (Get_Name_String (Display_Name
(Identifier (Src_Port))));
Dst_Name := US (Get_Name_String (Display_Name
(Identifier (Dst_Port))));
end if;
-- Put_Line (To_String (Src_Name) & " -> " & To_String (Dst_Name));
-- C_New_Connection
-- (Get_Name_String
-- (Name (Identifier
-- (Parent_Subcomponent
-- (Parent_Component (Src_Port))))),
-- Get_Name_String
-- (Name (Identifier
-- (Parent_Subcomponent
-- (Parent_Component (Src_Port)))))'Length,
-- To_String (Src_Name),
-- To_String (Src_Name)'Length,
-- Get_Name_String (Bound_Bus_Name),
-- Get_Name_String (Bound_Bus_Name)'Length,
-- Get_Name_String
-- (Name (Identifier
-- (Parent_Subcomponent
-- (Parent_Component (Dst_Port))))),
-- Get_Name_String
-- (Name (Identifier
-- (Parent_Subcomponent
-- (Parent_Component (Dst_Port)))))'Length,
-- To_String (Dst_Name),
-- To_String (Dst_Name)'Length);
--
-- C_End_Connection;
end if;
Conn := Next_Node (Conn);
end loop;
end if;
null;
-- if not Is_Empty (Subcomponents (My_System)) then
-- C_New_Drivers_Section;
-- Processes := First_Node (Subcomponents (My_System));
......
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