From: "John B. Matthews" <nospam@nospam.invalid>
Subject: Re: Barrier re-evaluation issue with GNAT 4.3.2
Date: Fri, 25 Sep 2009 11:56:46 -0400
Date: 2009-09-25T11:56:46-04:00 [thread overview]
Message-ID: <nospam-E7CE69.11564625092009@news.aioe.org> (raw)
In-Reply-To: h9g8mf$v4f$1@news.eternal-september.org
In article <h9g8mf$v4f$1@news.eternal-september.org>,
Reto Buerki <reet@codelabs.ch> wrote:
> The test code below implements a simple alarm clock which should
> wakeup the task waiting on the "Wait_For_Wakeup" entry.
>
> With GNAT 4.3.2 on Debian/stable this does not work. The main task
> remains queued on the entry even though the Wakeup-handler is invoked
> correctly by the Timing_Event.
>
> Compiling the same code with GNAT 4.4.1-5 (on Debian/SID) or GNAT GPL
> 2009 leads to the expected behavior: The main task terminates after
> the alarm has fired. This indicates a bug in FSF GNAT 4.3.2.
I get the same result with FSF GNAT 4.3.4. I revised your code to follow
the "protected Event" example seen here:
<http://www.adaic.com/standards/95rat/RAThtml/rat95-p1-2.html#9>
It seems to work. The compiler warns, "potentially blocking operation in
protected operation" in Wakeup, although the Signal barrier is always
true. I'm not sure the extra entries _should_ be required, but I think
it might be more reliable in the face of multiple threads calling Wait.
I don't know a reason why it wouldn't work under 4.3.2.
with Ada.Text_IO;
with Alarm_Clock;
procedure Main is
My_Alarm : Alarm_Clock.Alarm_Type;
begin
Ada.Text_IO.Put_Line ("Starting alarm ...");
My_Alarm.Start;
Ada.Text_IO.Put_Line ("Waiting for alarm ...");
My_Alarm.Wait;
Ada.Text_IO.Put_Line ("ALARM!!");
end Main;
package Alarm_Clock is
use Ada.Real_Time;
protected type Alarm_Type is
entry Wait;
entry Signal;
procedure Start;
procedure Wakeup(Event : in out Timing_Events.Timing_Event);
private
entry Reset;
Alarm : Boolean := False;
end Alarm_Type;
end Alarm_Clock;
package body Alarm_Clock is
Timer : Timing_Events.Timing_Event;
protected body Alarm_Type is
procedure Start is
begin
Timer.Set_Handler(In_Time => Seconds (1),
Handler => Wakeup'Access);
end Start;
procedure Wakeup(Event : in out Timing_Events.Timing_Event) is
begin
Alarm := True;
Signal;
end Wakeup;
entry Wait when Alarm is
begin
null;
end Wait;
entry Signal when True is
begin
if Wait'Count > 0 then
Alarm := True;
requeue Reset;
end if;
end Signal;
entry Reset when Wait'Count = 0 is
begin
Alarm := False;
end Reset;
end Alarm_Type;
end Alarm_Clock;
--
John B. Matthews
trashgod at gmail dot com
<http://sites.google.com/site/drjohnbmatthews>
next prev parent reply other threads:[~2009-09-25 15:56 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-09-24 17:02 Barrier re-evaluation issue with GNAT 4.3.2 Reto Buerki
2009-09-24 17:47 ` Dmitry A. Kazakov
2009-09-25 8:50 ` Brad Moore
2009-09-25 9:17 ` Dmitry A. Kazakov
2009-09-25 9:57 ` Ludovic Brenta
2009-09-25 10:31 ` Dmitry A. Kazakov
2009-09-25 11:23 ` Jean-Pierre Rosen
2009-09-28 10:41 ` Reto Buerki
2009-09-25 17:06 ` Brad Moore
2009-09-25 18:42 ` Dmitry A. Kazakov
2009-09-25 19:39 ` Brad Moore
2009-09-28 10:18 ` Reto Buerki
2009-09-25 15:56 ` John B. Matthews [this message]
2009-09-26 14:23 ` John B. Matthews
2009-09-28 10:28 ` Reto Buerki
2009-09-28 12:39 ` John B. Matthews
2009-09-28 13:25 ` Reto Buerki
2009-09-28 14:05 ` Reto Buerki
2009-09-28 18:38 ` Jeffrey R. Carter
2009-09-28 18:51 ` Dmitry A. Kazakov
2009-09-29 8:37 ` Reto Buerki
2009-09-28 21:13 ` Robert A Duff
2009-09-28 22:28 ` Jeffrey R. Carter
2009-10-10 5:41 ` Randy Brukardt
2009-09-29 8:30 ` Reto Buerki
2009-09-29 15:06 ` John B. Matthews
2009-09-30 14:12 ` Reto Buerki
2009-09-30 15:59 ` John B. Matthews
2009-10-01 16:12 ` John B. Matthews
2009-10-01 17:17 ` Anh Vo
2009-10-02 2:26 ` John B. Matthews
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox