paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 04:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write timing to stderr

Browse Source 
git-svn-id: trunk@11091 -
This commit is contained in:
florian 2008-05-27 09:35:07 +00:00
parent a53a234189
commit 5c1c5f2aad
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/bench/timer.pas
View File

@ -7,7 +7,7 @@ unit timer;
var
verbosetimer : boolean = true;
procedure start;
procedure stop;
function MSec:cardinal;
@ -46,12 +46,12 @@ unit timer;
etime:=gt;
s:=etime-stime;
if verbosetimer then
write(s div 1000,'.',s mod 1000,' Seconds');
write(stderr,s div 1000,'.',s mod 1000,' Seconds');
end;
function MSec:cardinal;
begin
Msec:=etime-stime;
end;
end.