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

git-svn-id: trunk@13529 -

tests/tbs/tb0524.pp

@@ -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');