Merged revisions 6726 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r6726 | jonas | 2007-03-05 16:56:55 +0100 (Mon, 05 Mar 2007) | 3 lines

  * use sysutils.sleep() instead of a delay loop for consistent results
    among different systems

........

git-svn-id: branches/fixes_2_2@6737 -

tests/tbs/tb0524.pp

@@ -1,7 +1,7 @@
 {%TARGET=linux,freebsd,darwin}
 program tb0524;
 
-uses sockets,baseunix;
+uses sockets,baseunix,sysutils;
 
 const port=6667;
 
@@ -94,15 +94,13 @@ begin
    shutdown(s,2);
 end;
 
-var i:longint;
-
 begin
   if fpfork=0 then
     do_server
   else
     begin
       {Give server some time to start.}
-      for i:=1 to 1000000 do;
+      sleep(2000);
       do_client;
     end;
-end.
+end.