paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
among different systems

git-svn-id: trunk@6726 -
This commit is contained in:
Jonas Maebe 2007-03-05 15:56:55 +00:00
parent 5ecabc1a54
commit c7fc744a2a
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/tbs/tb0524.pp
View File

@ -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.