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

* Prevent codetools from messing up types again

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-09-20 17:06:01 +02:00
parent 2cbc6bb674
commit 9c7d1515bf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -107,8 +107,8 @@ type
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 @@ type
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;