paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed time calculation

Browse Source
This commit is contained in:
peter 2003-12-26 14:32:16 +00:00
parent d7f6e2bdf8
commit 7fe57a2396
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/bench/whet.pas
View File

@ -47,6 +47,13 @@ C WRITE statements and FORMAT sttements removed.
C
C**********************************************************************)
const
(* With loopcount NLoop=10, one million Whetstone instructions
will be executed in each major loop.
A major loop is executed 'II' times to increase wall-clock timing accuracy *)
NLoopValue = 100;
{$IFDEF OS2}
function TimeNow : LongInt;
var
@ -58,14 +65,14 @@ begin
end;
{$ELSE}
function TimeNow : Double;
function TimeNow : Int64;
var
h,m,s,s100 : word;
begin
gettime(h,m,s,s100);
TimeNow := h*3600+m*60+s+s100*0.01;
TimeNow := h*3600*1000+m*60*1000+s*1000+s100*10;
end;
{$ENDIF}
@ -128,10 +135,7 @@ BEGIN
T := 0.499975;
T1 := 0.50025;
T2 := 2.0;
(* With loopcount NLoop=10, one million Whetstone instructions
will be executed in each major loop.
A major loop is executed 'II' times to increase wall-clock timing accuracy *)
NLoop := 30;
NLoop := NLoopValue;
II := 400;
FOR JJ:=1 TO II DO BEGIN
(* Establish the relative loop counts of each module. *)
@ -270,10 +274,9 @@ BEGIN
--------------------------------------------------------------------*)
WriteLn;
WriteLn ('Double Whetstone KIPS ',
(TRUNC ((100.0 * NLoop * II) /
((time1 - time0)/1000))));
WriteLn ('Whetstone MIPS ',
1.0*NLoop*II /((1.0*time1 - 1.0*time0)/1000 * 10):12:2);
(TRUNC ((100.0 * NLoop * II) * 1000 / (time1 - time0))));
WriteLn ('Whetstone MIPS ',
1.0*NLoop*II * 1000 / (time1 - time0):12:2);
END;
BEGIN