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

* fixed test compilation after r29388

Browse Source 
git-svn-id: trunk@29488 -
This commit is contained in:
Jonas Maebe 2015-01-16 20:08:52 +00:00
parent 697552b9f1
commit 02c445fb29
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