Commit 3f2b3f32 authored by yoogx's avatar yoogx

* Minor reformatting

parent ef55320c
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2013 ESA & ISAE. --
-- -- -- --
-- PolyORB HI is free software; you can redistribute it and/or modify it -- -- PolyORB HI is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free -- -- under terms of the GNU General Public License as published by the Free --
...@@ -61,7 +61,7 @@ package PolyORB_HI.Output is ...@@ -61,7 +61,7 @@ package PolyORB_HI.Output is
-- routine is thread-safe. -- routine is thread-safe.
procedure Put_Line (Text : in String); procedure Put_Line (Text : in String);
-- As above but displays the message reguards less the mode -- As above but always displays the message
procedure Unprotected_Put_Line (Text : in String); procedure Unprotected_Put_Line (Text : in String);
-- As above but this routine is not thread-safe -- As above but this routine is not thread-safe
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2007-2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2007-2009 Telecom ParisTech, 2010-2013 ESA & ISAE. --
-- -- -- --
-- PolyORB HI is free software; you can redistribute it and/or modify it -- -- PolyORB HI is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free -- -- under terms of the GNU General Public License as published by the Free --
...@@ -66,8 +66,7 @@ package body PolyORB_HI.Suspenders is ...@@ -66,8 +66,7 @@ package body PolyORB_HI.Suspenders is
Ada.Real_Time.Clock + Ada.Real_Time.Milliseconds (1_000); Ada.Real_Time.Clock + Ada.Real_Time.Milliseconds (1_000);
pragma Debug pragma Debug
(Put_Line (Put_Line
(Verbose, "Initialization of all subsystems finished," (Verbose, "Initialization finished, system startup in 1 second(s)"));
& " system startup in 1 second(s)"));
for J in Task_Suspension_Objects'Range loop for J in Task_Suspension_Objects'Range loop
pragma Debug pragma Debug
...@@ -83,7 +82,6 @@ package body PolyORB_HI.Suspenders is ...@@ -83,7 +82,6 @@ package body PolyORB_HI.Suspenders is
& PolyORB_HI_Generated.Deployment.Entity_Image (J) & PolyORB_HI_Generated.Deployment.Entity_Image (J)
& " unblocked")); & " unblocked"));
end loop; end loop;
end Unblock_All_Tasks; end Unblock_All_Tasks;
end PolyORB_HI.Suspenders; end PolyORB_HI.Suspenders;
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2007-2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2007-2009 Telecom ParisTech, 2010-2013 ESA & ISAE. --
-- -- -- --
-- PolyORB HI is free software; you can redistribute it and/or modify it -- -- PolyORB HI is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free -- -- under terms of the GNU General Public License as published by the Free --
...@@ -196,7 +196,6 @@ package PolyORB_HI.Thread_Interrogators is ...@@ -196,7 +196,6 @@ package PolyORB_HI.Thread_Interrogators is
-- set to the message reception time. -- set to the message reception time.
function Get_Time_Stamp (P : Port_Type) return Ada.Real_Time.Time; function Get_Time_Stamp (P : Port_Type) return Ada.Real_Time.Time;
-- Return the timestamp of the latest value received on data port -- Return the timestamp of the latest value received on data port P
-- P.
end PolyORB_HI.Thread_Interrogators; end PolyORB_HI.Thread_Interrogators;
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