From: reason67@my-deja.com
Subject: Re: Apex vs GNAT on solaris
Date: 1999/12/07
Date: 1999-12-07T00:00:00+00:00 [thread overview]
Message-ID: <82hjhr$7i9$1@nnrp1.deja.com> (raw)
In-Reply-To: 82hiuj$74o$1@nnrp1.deja.com
> 1.1 15 iterations of 1000 delays of 0.0
-=-=-=-=-=-=-
with Ada.Calendar;
with Ada.Text_Io;
with Common_Utilities;
procedure Aaaa_1_1_Timing_Test is
package Long_Float_Io is new Ada.Text_Io.Float_Io (Long_Float);
type Time_Stamp_Type is array (0 .. 1_000) of Ada.Calendar.Time;
Compiler : constant String := "Apex";
Instances : constant := 15;
Iterations : constant := 1000;
Biggest_Number : Integer;
Smallest_Number : Integer;
Biggest : Long_Float := -1.0;
Smallest : Long_Float := 100.0;
Average : Long_Float := 0.0;
Length : Long_Float;
Time_Stamp : Time_Stamp_Type;
Instance_Length : Integer;
begin
Ada.Text_Io.Put_Line ("::: [Aaaa_1_1_Timing_Test]");
Ada.Text_Io.Put_Line
(Compiler & " timing test running " &
Common_Utilities.Strip_Spaces (Integer'Image (Instances)) &
" instances of " &
Common_Utilities.Strip_Spaces (Integer'Image (Iterations)) &
" delays of 0");
Instance_Length := Common_Utilities.Strip_Spaces
(Integer'Image (Instances))'Length;
for Counter in 1 .. Instances loop
Biggest := -1.0;
Smallest := 100.0;
Average := 0.0;
Time_Stamp (0) := Ada.Calendar.Clock;
for Index in 1 .. Iterations loop
delay 0.0;
Time_Stamp (Index) := Ada.Calendar.Clock;
end loop;
for Index in 1 .. Iterations loop
Length := Long_Float (Ada.Calendar."-" (Time_Stamp (Index),
Time_Stamp (Index -
1)));
if Biggest < Length then
Biggest := Length;
Biggest_Number := Index;
end if;
if Smallest > Length then
Smallest := Length;
Smallest_Number := Index;
end if;
Average := Average + Length;
end loop;
Average := Average / Long_Float (Iterations);
Ada.Text_Io.Put ("Instance " & Common_Utilities.String_Of
(Number => Counter,
Length => Instance_Length,
Show_Leading_Zeros => False)
&
": Maximum time => ");
Long_Float_Io.Put (Item => Biggest, Fore => 1, Aft => 4, Exp =>
0);
Ada.Text_Io.Put (Ascii.Ht & Ascii.Ht & "Average time => ");
Long_Float_Io.Put (Item => Average, Fore => 1, Aft => 4, Exp =>
0);
Ada.Text_Io.New_Line;
end loop;
Ada.Text_Io.Put_Line ("::: [Aaaa_1_1_Timing_Test has finished]");
end Aaaa_1_1_Timing_Test;
-=-=-=-=-=-=-=-=-
Apex timing test running 15 instances of 1000 delays of 0
Instance 1: Maximum time => 0.0010 Average time => 0.0000
Instance 2: Maximum time => 0.0211 Average time => 0.0000
Instance 3: Maximum time => 0.0002 Average time => 0.0000
Instance 4: Maximum time => 0.0058 Average time => 0.0000
Instance 5: Maximum time => 0.0100 Average time => 0.0000
Instance 6: Maximum time => 0.0054 Average time => 0.0000
Instance 7: Maximum time => 0.0048 Average time => 0.0000
Instance 8: Maximum time => 0.0001 Average time => 0.0000
Instance 9: Maximum time => 0.0001 Average time => 0.0000
Instance 10: Maximum time => 0.0017 Average time => 0.0000
Instance 11: Maximum time => 0.0014 Average time => 0.0000
Instance 12: Maximum time => 0.0001 Average time => 0.0000
Instance 13: Maximum time => 0.0010 Average time => 0.0000
Instance 14: Maximum time => 0.0016 Average time => 0.0000
Instance 15: Maximum time => 0.0014 Average time => 0.0000
GNAT timing test running 15 instances of 1000 delays of 0
Instance 1: Maximum time => 0.0000 Average time => 0.0000
Instance 2: Maximum time => 0.0000 Average time => 0.0000
Instance 3: Maximum time => 0.0000 Average time => 0.0000
Instance 4: Maximum time => 0.0000 Average time => 0.0000
Instance 5: Maximum time => 0.0000 Average time => 0.0000
Instance 6: Maximum time => 0.0036 Average time => 0.0000
Instance 7: Maximum time => 0.0000 Average time => 0.0000
Instance 8: Maximum time => 0.0000 Average time => 0.0000
Instance 9: Maximum time => 0.0000 Average time => 0.0000
Instance 10: Maximum time => 0.0000 Average time => 0.0000
Instance 11: Maximum time => 0.0000 Average time => 0.0000
Instance 12: Maximum time => 0.0001 Average time => 0.0000
Instance 13: Maximum time => 0.0000 Average time => 0.0000
Instance 14: Maximum time => 0.0000 Average time => 0.0000
Instance 15: Maximum time => 0.0001 Average time => 0.0000
Sent via Deja.com http://www.deja.com/
Before you buy.
next prev parent reply other threads:[~1999-12-07 0:00 UTC|newest]
Thread overview: 48+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-12-07 0:00 Apex vs GNAT on solaris reason67
1999-12-07 0:00 ` Robert Dewar
1999-12-07 0:00 ` reason67
1999-12-08 0:00 ` Robert Dewar
1999-12-08 0:00 ` reason67
1999-12-08 0:00 ` Robert A Duff
1999-12-08 0:00 ` Robert Dewar
1999-12-08 0:00 ` Larry Kilgallen
1999-12-07 0:00 ` Roger Racine
1999-12-07 0:00 ` David Starner
1999-12-08 0:00 ` Robert Dewar
1999-12-07 0:00 ` Jean-Pierre Rosen
1999-12-07 0:00 ` Larry Kilgallen
1999-12-07 0:00 ` Samuel T. Harris
1999-12-08 0:00 ` Robert Dewar
1999-12-08 0:00 ` Roger Racine
1999-12-08 0:00 ` Larry Kilgallen
1999-12-08 0:00 ` Roger Racine
1999-12-08 0:00 ` Larry Kilgallen
1999-12-08 0:00 ` tmoran
1999-12-09 0:00 ` Robert Dewar
1999-12-09 0:00 ` Roger Racine
1999-12-09 0:00 ` Mike Silva
1999-12-10 0:00 ` Robert Dewar
1999-12-09 0:00 ` Larry Kilgallen
1999-12-10 0:00 ` Robert Dewar
1999-12-16 0:00 ` Stefan Skoglund
1999-12-08 0:00 ` Robert A Duff
1999-12-08 0:00 ` Ted Dennison
1999-12-07 0:00 ` reason67
1999-12-07 0:00 ` reason67
1999-12-07 0:00 ` reason67
1999-12-07 0:00 ` Robert Dewar
1999-12-07 0:00 ` reason67
1999-12-07 0:00 ` reason67
1999-12-07 0:00 ` reason67
1999-12-07 0:00 ` Robert Dewar
1999-12-07 0:00 ` reason67
1999-12-08 0:00 ` Robert Dewar
1999-12-08 0:00 ` reason67
1999-12-07 0:00 ` Vladimir Olensky
1999-12-07 0:00 ` Vladimir Olensky
1999-12-09 0:00 ` Geoff Bull
1999-12-09 0:00 ` Vladimir Olensky
1999-12-10 0:00 ` Vladimir Olensky
1999-12-09 0:00 ` Vladimir Olensky
1999-12-07 0:00 ` reason67 [this message]
1999-12-07 0:00 ` reason67
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox