* Prevent codetools from messing up types again

loongson · Sep 20, 2022 · 9c7d151 · 9c7d151
1 parent 2cbc6bb
commit 9c7d151
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp
@@ -107,8 +107,8 @@   TSocketStream = class(THandleStream)
     Procedure GetSockOptions;
     procedure SetConnectTimeout(AValue: Integer);
     Procedure SetSocketOptions(Value : TSocketOptions);
-    function GetLocalAddress: TSockAddr;
-    function GetRemoteAddress: TSockAddr;
+    function GetLocalAddress: sockets.TSockAddr;
+    function GetRemoteAddress: sockets.TSockAddr;
     procedure SetIOTimeout(AValue: Integer);
   Protected
     Procedure DoOnClose; virtual;
@@ -124,8 +124,8 @@   TSocketStream = class(THandleStream)
     Function Write (Const Buffer; Count : Longint) :Longint; Override;
     Property SocketOptions : TSocketOptions Read FSocketOptions
                                             Write SetSocketOptions;
-    property LocalAddress: TSockAddr read GetLocalAddress;
-    property RemoteAddress: TSockAddr read GetRemoteAddress;
+    property LocalAddress: sockets.TSockAddr read GetLocalAddress;
+    property RemoteAddress: sockets.TSockAddr read GetRemoteAddress;
     Property LastError : Integer Read GetLastError;
     Property ReadFlags : Integer Read FReadFlags Write FReadFlags;
     Property WriteFlags : Integer Read FWriteFlags Write FWriteFlags;