paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:10:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove Windows use

Browse Source 
git-svn-id: trunk@2639 -
This commit is contained in:
peter 2006-02-20 06:53:12 +00:00
parent 2c10e841b9
commit 3d0a4da8ff
1 changed files with 334 additions and 324 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/bench/ansibench.pp
View File

@ -1,10 +1,10 @@
program Bench2; program Bench2;
{$APPTYPE CONSOLE} {$APPTYPE CONSOLE}
{$Mode Objfpc}
{$H+} {$H+}
uses uses
sysutils, sysutils;
Windows;
const const
cTimes = 999999; cTimes = 999999;
@ -21,6 +21,16 @@ const
'zero', 'ten', 'twenty', 'thirty', 'fourty', 'fifty', 'zero', 'ten', 'twenty', 'thirty', 'fourty', 'fifty',
'sixty', 'seventy', 'eighty', 'ninety'); 'sixty', 'seventy', 'eighty', 'ninety');
function GetTickCount : Cardinal;
var
h,m,s,s1000 : word;
begin
decodetime(time,h,m,s,s1000);
result:=h*3600000+m*60000+s*1000+s1000;
end;
var var
StartTick: Cardinal; StartTick: Cardinal;