Re: ADA code execution times

[tmoran@bix.com (Tom Moran)]

>What code can I use in my ADA program
Since my ISP seems to have lost my previous post, here it is again:

with Ada.Calendar,
       Ada.Text_IO;
...
use type Ada.Calendar.Time;
Start : Ada.Calendar.Time;
Elapsed : Duration;
...
Start := Ada.Calendar.Clock;
-- something you want to time
Elapsed ::= Ada.Calendar.Clock - Start;
Ada.Text_IO.Put_Line("It took " & Duration'image(Elapsed) 
   & " seconds");

Last time I checked Duration had a delta in the nanoseconds for Gnat,
although it only used the Win95 timer that ticks every 55
milliseconds.  So if "--something you want to time" takes under 55 ms,
the clock will tick 0 or 1 times and you'll get either 0.0 or 0.055 as
the elapsed time.  If it takes, say, 10 seconds, then you'll get
either 10.0 or 10.055 as the printed value.  Since Win95 rears its
head up and does lengthy things like updating the disk at times of its
own choosing, you should take any short duration with a large grain of
salt.  You can of course do the timing multiple times and take the
average.