Fix generation of pohi interface

src/taste-concurrency_view.adb

@@ -215,6 +215,7 @@ package body TASTE.Concurrency_View is
                Block_Names     : Vector_Tag;
                Block_Languages : Vector_Tag;
                Blocks          : Unbounded_String;
+               Part_Threads    : Unbounded_String;
                Partition_Assoc : Translate_Set;
                --  Connections between threads:
                Thread_Src_Name,
@@ -255,6 +256,11 @@ package body TASTE.Concurrency_View is
                   Output_Port_Thread_Name :=
                     Output_Port_Thread_Name & Each.Thread_Name;
                end loop;
+               Put_Info ("Partition: "
+                         & To_String (Partition.Deployment_Partition.Name));
+               for T of Partition.Threads loop
+                  Put_Info ("Thread: " & To_String (T.Name));
+               end loop;
 
                for T of Partition.Threads loop
                   declare
@@ -279,6 +285,7 @@ package body TASTE.Concurrency_View is
                         else "");
                   begin
                      Threads      := Threads & Newline & Result;
+                     Part_Threads := Part_Threads & Newline & Result;
                      Thread_Names := Thread_Names & Name;
                      All_Thread_Names := All_Thread_Names & Name;
                      for P of T.Output_Ports loop
@@ -383,7 +390,7 @@ package body TASTE.Concurrency_View is
                --  Association includes Name, Coverage, CPU Info, etc.
                --  (see taste-deployment_view.ads for the complete list)
                Partition_Assoc := Partition.Deployment_Partition.To_Template
-                 & Assoc ("Threads",              Threads)
+                 & Assoc ("Threads",              Part_Threads)
                  & Assoc ("Thread_Names",         Thread_Names)
                  & Assoc ("Node_Name",            Node_Name)
                  & Assoc ("Blocks",               Blocks)

templates/concurrency_view/ada_wrappers_body/pi.tmplt

@@ -22,8 +22,12 @@ procedure @_CAPITALIZE:Name_@
    @@END_INLINE@@
      with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_LOWER:Name_@";
 begin
-   @@-- Works only for one param: for more than one param, use a table section
-   C_@_CAPITALIZE:Name_@ (@_CAPITALIZE:Param_Names_@, @_CAPITALIZE:Param_Names_@_Size);
+   C_@_CAPITALIZE:Name_@
+    @@INLINE(      \()(,\n      )(\);)@@
+       @@TABLE@@
+          @_CAPITALIZE:Param_Names_@, @_CAPITALIZE:Param_Names_@_Size
+       @@END_TABLE@@
+    @@END_INLINE@@
 end @_CAPITALIZE:Name_@;
 @@ELSE@@
 procedure @_CAPITALIZE:Name_@ is

templates/concurrency_view/air_gpr/partition.tmplt

@@ -44,8 +44,8 @@ project @_CAPITALIZE:Name_@_AIR is
            "-fdiagnostics-show-option",
            "-Wcast-align",
            "-Wswitch",
-           "-ffunction-sections",
-           "-fdata-sections",
+           --"-ffunction-sections",
+           --"-fdata-sections",
            "-Wmissing-prototypes",
            "-Wimplicit-function-declaration",
            "-Wstrict-prototypes",
@@ -75,7 +75,7 @@ project @_CAPITALIZE:Name_@_AIR is
       ("@_LOWER:Name_@",
        "/home/taste/air/air/pmk/core/include",
        "/home/taste/air/air/pmk/arch/sparc/include",
-       "/home/taste/air/air/libs/imaspex/include",
+       "/home/taste/air/air/install/libs/imaspex/include",
        "../deploymentview_final/polyorb-hi-c/src",
        "../deploymentview_final/polyorb-hi-c/include",
        "../../dataview/C",