diff --git a/src/polyorb_hi-output.ads b/src/polyorb_hi-output.ads index fd7a533c77448335955f8d92741f77ad024f92f0..cbf8de8bed8ff552f24df8a7e6530f585121ab84 100644 --- a/src/polyorb_hi-output.ads +++ b/src/polyorb_hi-output.ads @@ -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 diff --git a/src/polyorb_hi-suspenders.adb b/src/polyorb_hi-suspenders.adb index f163ee1ba27d85d08072070361f78421f700d7fb..3d651ec509daa732b7652726e3bd9f7d02108c1e 100644 --- a/src/polyorb_hi-suspenders.adb +++ b/src/polyorb_hi-suspenders.adb @@ -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; diff --git a/src/polyorb_hi-thread_interrogators.ads b/src/polyorb_hi-thread_interrogators.ads index 07a86a8cf487ab27fa9025466f8826e04b8dc14b..12606382a6eb4670304fe3063d51504784d3bf62 100644 --- a/src/polyorb_hi-thread_interrogators.ads +++ b/src/polyorb_hi-thread_interrogators.ads @@ -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;