Re: Timing Block of GNAT code in milliseconds

[tmoran@acm.org]

>I am trying to time a block of code down to the millisecond level. Can
>anyone help in this area?
   The traditional way is
     T0 := Ada.Calendar.Clock;
     for i in 1 .. 1000 loop
       -- code to be timed
     end loop;
     Result := (Ada.Calendar.Clock - T0)/1000;
If the code to be timed is short so the loop overhead is significant, then
you time an empty loop (making sure the compiler doesn't optimize it away)
and subtract that.  On Windows machines it doesn't take long to call
Ada.Calendar.Clock, and that's accurate to better than one microsecond, so
if you want millisecond accuracy you could even dispense with the loop and
just do
     T0 := Ada.Calendar.Clock;
       -- code to be timed
     Result := (Ada.Calendar.Clock - T0)/1000;