paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 01:49:22 +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; destructor TSocketStream.Destroy;
begin begin
{$ifdef netware}
CloseSocket(Handle);
{$else}
FileClose(Handle); FileClose(Handle);
{$endif}
inherited Destroy; inherited Destroy;
end; end;
@ -280,7 +284,11 @@ Procedure TSocketServer.Close;
begin begin
If FSocket<>-1 Then If FSocket<>-1 Then
{$ifdef netware}
CloseSocket(FSocket);
{$else}
FileClose(FSocket); FileClose(FSocket);
{$endif}
FSocket:=-1; FSocket:=-1;
end; end;
@ -560,7 +568,10 @@ end.
{ {
$Log$ $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) * changed defines not win32 to not Unix (Netware is not Unix nor win32)
Revision 1.17 2003/03/11 13:15:40 michael Revision 1.17 2003/03/11 13:15:40 michael