Re: GNAT.Sockets: Timeval_Duration is in milliseconds?

[Simon Wright <simon.j.wright@mac.com>]

gpriv@axonx.com writes:

> I use GPS 4.1.3 (20070913), GNAT GPL 2007 (20070405-41)
>
> It may be good idea to fix windows version of GNAT though.

GNAT 6.0.1 handles this program properly on Windows XP ..

   with Ada.Calendar;
   with Ada.Text_IO; use Ada.Text_IO;
   with GNAT.Sockets;
   procedure Socket_Times is
      Sel : GNAT.Sockets.Selector_Type;
      R, W : GNAT.Sockets.Socket_Set_Type;
      Stat : GNAT.Sockets.Selector_Status;
      Start, Finish : Ada.Calendar.Time;
      use type Ada.Calendar.Time;
   begin
      GNAT.Sockets.Initialize; 
      GNAT.Sockets.Create_Selector (Sel); 
      Put_Line ("starting..");
      Start := Ada.Calendar.Clock;
      GNAT.Sockets.Check_Selector (Sel, R, W, Stat, 5.0);
      Finish := Ada.Calendar.Clock;
      Put_Line ("..done with " 
                & Stat'Img
                & " after "
                & Duration'Image (Finish - Start));
   end Socket_Times;

(I don't have the output here, but it printed

   ..done with EXPIRED after 5.0001

or thereabouts, same as GPL 2006 on Mac OS X).


Anyone care to try this on other Windows GNAT compiler releases?