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

* Fix a netorder issue. From mantis

Browse Source 
git-svn-id: trunk@13507 -
This commit is contained in:
marco 2009-08-09 18:47:06 +00:00
parent e022a86c47
commit c97a407633
1 changed files with 1 additions and 1 deletions

2
packages/fcl-net/src/ssockets.pp
View File

@ -564,7 +564,7 @@ begin
end;
addr.family := AF_INET;
addr.port := ShortHostToNet(FPort);
addr.addr := a.s_addr;
addr.addr := HostToNet(a.s_addr);
If Sockets.fpConnect(ASocket, @addr, sizeof(addr))<>0 then
raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort])]);