Commit a7bed6cc authored by hugues.jerome's avatar hugues.jerome
Browse files

* Minor reformatting

git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 834588cd
......@@ -319,15 +319,11 @@ package body Ocarina.Backends.C_Common.Mapping is
if Get_Current_Backend_Kind = PolyORB_Kernel_C then
CTN.Set_Name (D, To_C_Name
(AIN.Identifier (Parent_Subcomponent (E)))));
CTN.Set_Name (D, To_C_Name
CTN.Set_Name (D, To_C_Name (AIN.Name (AIN.Identifier (E))));
end if;
CTN.Set_Units (D, New_List (CTN.K_List_Id));
CTN.Set_HI_Nodes (D, New_List (CTN.K_List_Id));
......@@ -1025,6 +1025,7 @@ package body Ocarina.Backends.C_Tree.Generator is
Application_Directory : Name_Id;
-- Create the application directory (a lower case string)
Get_Name_String (Name (N));
Application_Directory := To_Lower (Name_Find);
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