فهرست منبع

* write output to stderr

git-svn-id: trunk@8620 -
florian 18 سال پیش
والد
کامیت
91956cdb54
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      tests/utils/fptime.pp

+ 1 - 1
tests/utils/fptime.pp

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