paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 10:19:28 +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)
Private
FSocketInitialized : Boolean;
FSocketOptions : TSocketOptions;
Procedure GetSockOptions;
Procedure SetSocketOptions(Value : TSocketOptions);
@ -215,11 +216,13 @@ Constructor TSocketStream.Create (AHandle : Longint);
begin
Inherited Create(AHandle);
FSocketInitialized := true;
GetSockOptions;
end;
destructor TSocketStream.Destroy;
begin
if FSocketInitialized then
{$ifdef netware}
CloseSocket(Handle);
{$else}