* Add machinery to use GNAT cross runtimes, minor update for output

src/polyorb_hi-output.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---    Copyright (C) 2006-2009 Telecom ParisTech, 2010-2015 ESA & ISAE.      --
+--    Copyright (C) 2006-2009 Telecom ParisTech, 2010-2017 ESA & ISAE.      --
 --                                                                          --
 -- PolyORB-HI is free software; you can redistribute it and/or modify under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -177,8 +177,10 @@ package body PolyORB_HI.Output is
       end if;
 
       PolyORB_HI.Output_Low_Level.Put ("[");
-      PolyORB_HI.Output_Low_Level.Put
-        (Duration'Image (To_Duration (Elapsed * 1000)));
+      --  XXX The following is disabled as some cross-runtime do not have
+      --  the capability to build Duration'Image
+      --      PolyORB_HI.Output_Low_Level.Put
+      --        (Duration'Image (To_Duration (Elapsed * 1000)));
       PolyORB_HI.Output_Low_Level.Put ("] ");
       PolyORB_HI.Output_Low_Level.Put (Text);
    end Unprotected_Put;

src/polyorb_hi.gpr.in

@@ -6,7 +6,7 @@
 --                                                                          --
 --                              P r o j e c t                               --
 --                                                                          --
---    Copyright (C) 2007-2009 Telecom ParisTech, 2010-2015 ESA & ISAE.      --
+--    Copyright (C) 2007-2009 Telecom ParisTech, 2010-2017 ESA & ISAE.      --
 --                                                                          --
 -- PolyORB-HI is free software; you can redistribute it and/or modify under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,7 +31,8 @@
 
 project PolyORB_HI is
 
-   type Target_Type is ("NATIVE", "LEON_ORK", "LEON_GNAT", "ERC32", "MARTEOS");
+   type Target_Type is
+   ("NATIVE", "LEON_ORK", "LEON_GNAT", "ERC32", "MARTEOS", "ARM_CORTEX");
    Target : Target_Type := external ("TARGET", "NATIVE");
 
    type Build_Type is ("Debug", "Release", "Analyzable");
@@ -122,11 +123,25 @@ project PolyORB_HI is
       case Target is
         when "NATIVE" | "MARTEOS" =>
            for Local_Configuration_Pragmas use "native.adc";
-        when "LEON_ORK" | "LEON_GNAT" | "ERC32" =>
+        when "LEON_ORK" | "LEON_GNAT" | "ERC32" | "ARM_CORTEX" =>
            for Local_Configuration_Pragmas use "hi-e.adc";
       end case;
    end Compiler;
 
+   --  Default configuration for GNAT runtime for some cross-targets.
+   --  Note: PolyORB-HI/Ada requires a Ravenscar runtime
+
+   --  XXX: one would need to have this overriden from the command line
+
+   gnat_runtime := "";
+   case Target is
+      when "ARM_CORTEX" =>
+        gnat_runtime := "ravenscar-sfp-stm32f4";
+
+      when others =>
+        gnat_runtime := "";
+   end case;
+
    -------------
    -- Builder --
    -------------