From faa761528882e35ca300dc3ea035571ba598be94 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Tue, 5 Aug 2008 11:04:18 +0200 Subject: [PATCH] a-rttiev.adb: Minor reformatting (comments) 2008-08-05 Thomas Quinot * a-rttiev.adb: Minor reformatting (comments) From-SVN: r138678 --- gcc/ada/a-rttiev.adb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/gcc/ada/a-rttiev.adb b/gcc/ada/a-rttiev.adb index 72ae4df0be4..2b1dacf1925 100644 --- a/gcc/ada/a-rttiev.adb +++ b/gcc/ada/a-rttiev.adb @@ -152,8 +152,8 @@ package body Ada.Real_Time.Timing_Events is return; end if; - -- We have an event that has timed out so we will process it. It - -- must be the first in the queue so no search is needed. + -- We have an event that has timed out so we will process it. It must + -- be the first in the queue so no search is needed. All_Events.Delete_First; @@ -174,7 +174,7 @@ package body Ada.Real_Time.Timing_Events is declare Handler : constant Timing_Event_Handler := Next_Event.Handler; begin - -- The first act is to clear the event, per D.15 (13/2). Besides, + -- The first act is to clear the event, per D.15(13/2). Besides, -- we cannot clear the handler pointer *after* invoking the -- handler because the handler may have re-inserted the event via -- Set_Event. Thus we take a copy and then clear the component. @@ -186,7 +186,7 @@ package body Ada.Real_Time.Timing_Events is end if; -- Ignore exceptions propagated by Handler.all, as required by - -- RM-D.15(21/2) + -- RM D.15(21/2). exception when others => @@ -266,7 +266,7 @@ package body Ada.Real_Time.Timing_Events is Remove_From_Queue (Event'Unchecked_Access); Event.Handler := null; - -- RM-D.15(15/2) requires that at this point, we check whether the time + -- RM D.15(15/2) requires that at this point, we check whether the time -- has already passed, and if so, call Handler.all directly from here -- instead of doing the enqueuing below. However, this causes a nasty -- race condition and potential deadlock. If the current task has @@ -294,7 +294,7 @@ package body Ada.Real_Time.Timing_Events is Remove_From_Queue (Event'Unchecked_Access); Event.Handler := null; - -- See comment in the other Set_Handler above. + -- See comment in the other Set_Handler above if Handler /= null then Event.Timeout := Clock + In_Time;