Ada_Ru форум

OS: Windows XP prof.

Compilers: GNAT GPL 2006, GNAT Pro 5.04a1

Code:

----------------------------------------------

with Ada.Real_Time;

with Ada.Text_IO;

 

procedure Delay_Until_RT is

use Ada;

use type Real_Time.Time;

 

Stamp_R : Real_Time.Time;

 

begin

loop

Stamp_R := Real_Time.Clock + Real_Time.To_Time_Span (10.0); delay until Stamp_R;

Ada.Text_IO.Put_Line

(Duration'Image (Real_Time.To_Duration (Real_Time.Clock - Stamp_R)));

end loop;

end Delay_Until_RT;

-------------------------------

Error output.

raised PROGRAM_ERROR : EXCEPTION_ACCESS_VIOLATION

 

Under the Linux GNAT GCC 4.1.0 everithing OK.

--- In ada_ru@yahoogroups.com, Dmitriy Anisimkov <anisimkov@...> wrote:

 

OS: Windows XP prof.

Compilers: GNAT GPL 2006, GNAT Pro 5.04a1

Code:

----------------------------------------------

with Ada.Real_Time;

with Ada.Text_IO;

 

procedure Delay_Until_RT is

use Ada;

use type Real_Time.Time;

 

Stamp_R : Real_Time.Time;

 

begin

loop

Stamp_R := Real_Time.Clock + Real_Time.To_Time_Span (10.0);

delay until Stamp_R;

Ada.Text_IO.Put_Line

(Duration'Image (Real_Time.To_Duration (Real_Time.Clock -

Stamp_R)));

end loop;

end Delay_Until_RT;

-------------------------------

Error output.

raised PROGRAM_ERROR : EXCEPTION_ACCESS_VIOLATION

 

Under the Linux GNAT GCC 4.1.0 everithing OK.

 

Windows Server 2003, GNAT 3.15p is also OK.