--- Merging r29488 into '.':

U    tests/tbs/tb0524.pp

# revisions: 29488

git-svn-id: branches/fixes_3_0@29576 -

tests/tbs/tb0524.pp

@@ -62,9 +62,9 @@ begin
 
   with saddr do
     begin
-      family:=af_inet;
-      port:=ntobe(word(6667));
-      addr:=0;
+      sin_family:=af_inet;
+      sin_port:=ntobe(word(6667));
+      sin_addr:=NoAddress;
    end;
 
   if  fpbind(lsock,@saddr,sizeof(saddr))<>0 then