paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 21:10:28 +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} {%TARGET=linux,freebsd,darwin}
program tb0524; program tb0524;
uses sockets,baseunix; uses sockets,baseunix,sysutils;
const port=6667; const port=6667;
@ -94,15 +94,13 @@ begin
shutdown(s,2); shutdown(s,2);
end; end;
var i:longint;
begin begin
if fpfork=0 then if fpfork=0 then
do_server do_server
else else
begin begin
{Give server some time to start.} {Give server some time to start.}
for i:=1 to 1000000 do; sleep(2000);
do_client; do_client;
end; end;
end. end.