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

* update lnet to 0.5 release

Browse Source 
git-svn-id: trunk@7174 -
This commit is contained in:
Almindor 2007-04-26 11:13:13 +00:00
parent 66d11ab637
commit 83f6a8f612
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fppkg/lnet/lnet.pp
View File

@ -567,7 +567,7 @@ end;
function TLSocket.GetPeerPort: Word;
begin
Result := FPeerAddress.sin_port;
Result := ntohs(FPeerAddress.sin_port);
end;
function TLSocket.Listen(const APort: Word; const AIntf: string = LADDR_ANY): Boolean;
@ -910,7 +910,7 @@ begin
FillAddressInfo(FRootSock.FPeerAddress, AF_INET, s, p);
end else
FillAddressInfo(FRootSock.FPeerAddress, AF_INET, Address,
FRootSock.FPeerAddress.Port);
FRootSock.PeerPort);
end;
function TLUdp.InitSocket(aSocket: TLSocket): TLSocket;