eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update for FPC 2.6.0

This commit is contained in:
mysticbbs 2012-03-01 18:19:16 -05:00
parent 51a64dd309
commit d9f8be0ae4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mdl/m_socket_class.pas
View File

@ -503,6 +503,7 @@ Var
PHE : PHostEnt; PHE : PHostEnt;
SIN : TINetSockAddr; SIN : TINetSockAddr;
Temp : LongInt; Temp : LongInt;
SL : TSockLen;
Begin Begin
Result := NIL; Result := NIL;
@ -521,7 +522,9 @@ Begin
Else Else
FPeerName := StrPas(PHE^.h_name); FPeerName := StrPas(PHE^.h_name);
fpGetSockName(FSocketHandle, @SIN, SizeOf(SIN)); SL := SizeOf(SIN);
fpGetSockName(FSocketHandle, @SIN, @SL);
FHostIP := NetAddrToStr(SIN.sin_addr); FHostIP := NetAddrToStr(SIN.sin_addr);
Client := TSocketClass.Create; Client := TSocketClass.Create;