paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 22:10:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more complete fix for bug #24802 (use SocketClose instead of FileClose on all platforms)

Browse Source 
git-svn-id: trunk@25197 -
This commit is contained in:
Tomas Hajny 2013-07-31 00:32:25 +00:00
parent 2015c55bf1
commit 9c68645784
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-net/src/fpsock.pp
View File

@ -209,7 +209,7 @@ Const
destructor TSocketStream.Destroy;
begin
FileClose(Handle);
SocketClose(Handle);
inherited Destroy;
end;

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

@ -246,11 +246,7 @@ end;
destructor TSocketStream.Destroy;
begin
if FSocketInitialized then
{$if defined(netware) or defined(mswindows)}
CloseSocket(Handle);
{$else}
FileClose(Handle);
{$ifend}
inherited Destroy;
end;
@ -340,11 +336,7 @@ Procedure TSocketServer.Close;
begin
If FSocket<>-1 Then
{$ifdef netware}
CloseSocket(FSocket);
{$else}
FileClose(FSocket);
{$endif}
FSocket:=-1;
end;