paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* error of yesterday fixed (stale "NOT"), and indicating which call fails

Browse Source 
git-svn-id: trunk@13529 -
This commit is contained in:
marco 2009-08-13 14:06:30 +00:00
parent 6ea04bc9ac
commit 576d108e2e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/tbs/tb0524.pp
View File

@ -18,7 +18,7 @@ begin
lsock:=fpsocket(af_inet,sock_stream,0);
if lsock=-1 then
begin
writeln(socketerror);
writeln('socket:',socketerror);
halt(1);
end;
@ -31,13 +31,13 @@ begin
if fpbind(lsock,@saddr,sizeof(saddr))<>0 then
begin
writeln(socketerror);
writeln('bind:',socketerror);
halt(1);
end;
if not fplisten(lsock,1)<>0 then
if fplisten(lsock,1)<>0 then
begin
writeln(socketerror);
writeln('listen:',socketerror);
halt(1);
end;
@ -45,7 +45,7 @@ begin
usock:=fpaccept(lsock,@saddr,@len);
if usock=-1 then
begin
writeln(SocketError);
writeln('accept:',SocketError);
halt(1);
end;
sock2text(usock,sin,sout);
@ -78,7 +78,7 @@ begin
saddr.sin_addr.s_addr:=hosttonet($7f000001); {127.0.0.1}
if not connect(s,saddr,sin,sout) then
begin
writeln(socketerror);
writeln('connect:',socketerror);
halt(1);
end;
writeln(sout,'abcd');