fpc/tests/utils/fptime.pp

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