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

* write output to stderr

Browse Source 
git-svn-id: trunk@8620 -
This commit is contained in:
florian 2007-09-23 14:39:53 +00:00
parent 8a70b3ec8b
commit 91956cdb54
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/fptime.pp
View File

@ -11,6 +11,6 @@ begin
ps:=ps+' '+paramstr(i); ps:=ps+' '+paramstr(i);
sticks:=GetMicroSTicks; sticks:=GetMicroSTicks;
ExecuteProcess(paramstr(1),ps); ExecuteProcess(paramstr(1),ps);
writeln((GetMicroSTicks-sticks)/1000:0:3,' ms'); writeln(stderr,(GetMicroSTicks-sticks)/1000:0:3,' ms');
end; end;
end. end.