From 3f2b3f321fff14d005eff02b80ad64b842c134f8 Mon Sep 17 00:00:00 2001 From: yoogx Date: Sat, 5 Oct 2013 14:13:09 -0400 Subject: [PATCH] * Minor reformatting --- src/polyorb_hi-output.ads | 4 ++-- src/polyorb_hi-suspenders.adb | 6 ++---- src/polyorb_hi-thread_interrogators.ads | 5 ++--- 3 files changed, 6 insertions(+), 9 deletions(-) diff --git a/src/polyorb_hi-output.ads b/src/polyorb_hi-output.ads index fd7a533..cbf8de8 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 f163ee1..3d651ec 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 07a86a8..1260638 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; -- GitLab