Commit 3f2b3f32 authored by yoogx's avatar yoogx

* Minor reformatting

parent ef55320c
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- under terms of the GNU General Public License as published by the Free --
......@@ -61,7 +61,7 @@ package PolyORB_HI.Output is
-- routine is thread-safe.
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);
-- As above but this routine is not thread-safe
......
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- under terms of the GNU General Public License as published by the Free --
......@@ -66,8 +66,7 @@ package body PolyORB_HI.Suspenders is
Ada.Real_Time.Clock + Ada.Real_Time.Milliseconds (1_000);
pragma Debug
(Put_Line
(Verbose, "Initialization of all subsystems finished,"
& " system startup in 1 second(s)"));
(Verbose, "Initialization finished, system startup in 1 second(s)"));
for J in Task_Suspension_Objects'Range loop
pragma Debug
......@@ -83,7 +82,6 @@ package body PolyORB_HI.Suspenders is
& PolyORB_HI_Generated.Deployment.Entity_Image (J)
& " unblocked"));
end loop;
end Unblock_All_Tasks;
end PolyORB_HI.Suspenders;
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- under terms of the GNU General Public License as published by the Free --
......@@ -196,7 +196,6 @@ package PolyORB_HI.Thread_Interrogators is
-- set to the message reception time.
function Get_Time_Stamp (P : Port_Type) return Ada.Real_Time.Time;
-- Return the timestamp of the latest value received on data port
-- P.
-- Return the timestamp of the latest value received on data port P
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