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

* use closesocket and not fdClose for netware

Browse Source
This commit is contained in:
armin 2003-03-25 17:47:06 +00:00
parent 2264e86d0e
commit 0dd3115ccc
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/inc/ssockets.pp
View File

@ -219,7 +219,11 @@ end;
destructor TSocketStream.Destroy;
begin
{$ifdef netware}
CloseSocket(Handle);
{$else}
FileClose(Handle);
{$endif}
inherited Destroy;
end;
@ -280,7 +284,11 @@ Procedure TSocketServer.Close;
begin
If FSocket<>-1 Then
{$ifdef netware}
CloseSocket(FSocket);
{$else}
FileClose(FSocket);
{$endif}
FSocket:=-1;
end;
@ -560,7 +568,10 @@ end.
{
$Log$
Revision 1.18 2003-03-21 23:10:24 armin
Revision 1.19 2003-03-25 17:47:06 armin
* use closesocket and not fdClose for netware
Revision 1.18 2003/03/21 23:10:24 armin
* changed defines not win32 to not Unix (Netware is not Unix nor win32)
Revision 1.17 2003/03/11 13:15:40 michael