paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 14:01:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r29488 into '.':

Browse Source 
U    tests/tbs/tb0524.pp

# revisions: 29488

git-svn-id: branches/fixes_3_0@29576 -
This commit is contained in:
marco 2015-01-29 13:01:27 +00:00
parent b5dec7c7cc
commit aab45fdee7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tb0524.pp
View File

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