* 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

src/backends/ocarina-backends-po_hi_c.adb

@@ -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;

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

@@ -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));