fpc/tests/utils/fptime.pp
pierre 5fa9463074 * remove two warnings
git-svn-id: trunk@14778 -
2010-01-22 23:32:51 +00:00

18 lines
336 B
ObjectPascal

uses
bench,sysutils;
var
i : longint;
ps : ansistring;
sticks : int64;
begin
ps:='';
if paramcount>0 then
begin
for i:=2 to paramcount do
ps:=ps+' '+paramstr(i);
sticks:=GetMicroSTicks;
ExecuteProcess(paramstr(1),ps);
writeln(stderr,(GetMicroSTicks-sticks)/1000:0:3,' ms');
end;
end.