Commit 37b2e0e8 authored by julien.delange's avatar julien.delange
Browse files

* ocarina/src/backends/ocarina-backends-xtratum_conf-partition_table.adb

   - Put the right name on partitions
 * ocarina/src/backends/ocarina-backends-po_hi_c.adb
   - Use Appli_Name to put the name of the module



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2358 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 29c57189
......@@ -136,12 +136,17 @@ package body Ocarina.Backends.PO_HI_C is
Use_Scade : Boolean;
Scade_Directory : Name_Id)
is
pragma Unreferenced (Appli_Name,
Transport_API,
pragma Unreferenced (Transport_API,
C_Sources,
Ada_Sources,
C_Libraries);
begin
if Appli_Name /= No_Name then
Write_Str ("MAINAPP = ");
Write_Name (Appli_Name);
Write_Eol;
end if;
Write_Str ("BINARY = ");
Write_Name (Node_Name);
Write_Eol;
......
......@@ -200,8 +200,7 @@ package body Ocarina.Backends.Xtratum_Conf.Partition_Table is
P := Make_Defining_Identifier (Name_Find);
Get_Name_String
(Display_Name
(Identifier
(Parent_Subcomponent (Associated_Processor))));
(Identifier (Parent_Subcomponent (E))));
Q := Make_Defining_Identifier (Name_Find);
Append_Node_To_List
(Make_Assignement (P, Q), XTN.Items (Partition_Node));
......
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