From d9f8be0ae499ede3ab967f9c19a7ff1c1345891d Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 1 Mar 2012 18:19:16 -0500
Subject: [PATCH] Update for FPC 2.6.0

---
 mdl/m_socket_class.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mdl/m_socket_class.pas b/mdl/m_socket_class.pas
index c30d906..d5a26c2 100644
--- a/mdl/m_socket_class.pas
+++ b/mdl/m_socket_class.pas
@@ -503,6 +503,7 @@ Var
   PHE    : PHostEnt;
   SIN    : TINetSockAddr;
   Temp   : LongInt;
+  SL     : TSockLen;
 Begin
   Result := NIL;
 
@@ -521,7 +522,9 @@ Begin
   Else
     FPeerName := StrPas(PHE^.h_name);
 
-  fpGetSockName(FSocketHandle, @SIN, SizeOf(SIN));
+  SL := SizeOf(SIN);
+
+  fpGetSockName(FSocketHandle, @SIN, @SL);
 
   FHostIP := NetAddrToStr(SIN.sin_addr);
   Client  := TSocketClass.Create;