paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch so uninitialized sockets are not closed

Browse Source 
git-svn-id: trunk@11673 -
This commit is contained in:
michael 2008-08-31 15:01:05 +00:00
parent 65f217ed02
commit 46f9928054
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,6 +42,7 @@ type
TSocketStream = class(THandleStream) TSocketStream = class(THandleStream)
Private Private
FSocketInitialized : Boolean;
FSocketOptions : TSocketOptions; FSocketOptions : TSocketOptions;
Procedure GetSockOptions; Procedure GetSockOptions;
Procedure SetSocketOptions(Value : TSocketOptions); Procedure SetSocketOptions(Value : TSocketOptions);
@ -215,11 +216,13 @@ Constructor TSocketStream.Create (AHandle : Longint);
begin begin
Inherited Create(AHandle); Inherited Create(AHandle);
FSocketInitialized := true;
GetSockOptions; GetSockOptions;
end; end;
destructor TSocketStream.Destroy; destructor TSocketStream.Destroy;
begin begin
if FSocketInitialized then
{$ifdef netware} {$ifdef netware}
CloseSocket(Handle); CloseSocket(Handle);
{$else} {$else}