Commit faa76152 by Thomas Quinot Committed by Arnaud Charlet

a-rttiev.adb: Minor reformatting (comments)

2008-08-05  Thomas Quinot  <quinot@adacore.com>

	* a-rttiev.adb: Minor reformatting (comments)

From-SVN: r138678
parent 8b79ad42
...@@ -152,8 +152,8 @@ package body Ada.Real_Time.Timing_Events is ...@@ -152,8 +152,8 @@ package body Ada.Real_Time.Timing_Events is
return; return;
end if; end if;
-- We have an event that has timed out so we will process it. It -- We have an event that has timed out so we will process it. It must
-- must be the first in the queue so no search is needed. -- be the first in the queue so no search is needed.
All_Events.Delete_First; All_Events.Delete_First;
...@@ -174,7 +174,7 @@ package body Ada.Real_Time.Timing_Events is ...@@ -174,7 +174,7 @@ package body Ada.Real_Time.Timing_Events is
declare declare
Handler : constant Timing_Event_Handler := Next_Event.Handler; Handler : constant Timing_Event_Handler := Next_Event.Handler;
begin 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 -- we cannot clear the handler pointer *after* invoking the
-- handler because the handler may have re-inserted the event via -- handler because the handler may have re-inserted the event via
-- Set_Event. Thus we take a copy and then clear the component. -- Set_Event. Thus we take a copy and then clear the component.
...@@ -186,7 +186,7 @@ package body Ada.Real_Time.Timing_Events is ...@@ -186,7 +186,7 @@ package body Ada.Real_Time.Timing_Events is
end if; end if;
-- Ignore exceptions propagated by Handler.all, as required by -- Ignore exceptions propagated by Handler.all, as required by
-- RM-D.15(21/2) -- RM D.15(21/2).
exception exception
when others => when others =>
...@@ -266,7 +266,7 @@ package body Ada.Real_Time.Timing_Events is ...@@ -266,7 +266,7 @@ package body Ada.Real_Time.Timing_Events is
Remove_From_Queue (Event'Unchecked_Access); Remove_From_Queue (Event'Unchecked_Access);
Event.Handler := null; 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 -- has already passed, and if so, call Handler.all directly from here
-- instead of doing the enqueuing below. However, this causes a nasty -- instead of doing the enqueuing below. However, this causes a nasty
-- race condition and potential deadlock. If the current task has -- race condition and potential deadlock. If the current task has
...@@ -294,7 +294,7 @@ package body Ada.Real_Time.Timing_Events is ...@@ -294,7 +294,7 @@ package body Ada.Real_Time.Timing_Events is
Remove_From_Queue (Event'Unchecked_Access); Remove_From_Queue (Event'Unchecked_Access);
Event.Handler := null; Event.Handler := null;
-- See comment in the other Set_Handler above. -- See comment in the other Set_Handler above
if Handler /= null then if Handler /= null then
Event.Timeout := Clock + In_Time; Event.Timeout := Clock + In_Time;
......
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