paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 17:58:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix INVALID_SOCKET for other platforms too

Browse Source 
git-svn-id: trunk@7329 -
This commit is contained in:
Almindor 2007-05-13 19:20:17 +00:00
parent a52a63178b
commit f83568d897
4 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/freebsd/unxsockh.inc
View File

@ -346,4 +346,6 @@ Const
MSG_COMPAT = $8000;
MSG_SOCALLBCK = $10000;
MSG_NOSIGNAL = $20000; { Do not generate SIGPIPE }
INVALID_SOCKET = -1;
SOCKET_ERROR = -1;

4
rtl/netware/netwsockh.inc
View File

@ -52,3 +52,7 @@ const
PF_ATM = AF_ATM;
PF_INET6 = AF_INET6;
PF_MAX = AF_MAX;
INVALID_SOCKET = -1;
SOCKET_ERROR = -1;

3
rtl/netwlibc/netwsockh.inc
View File

@ -52,3 +52,6 @@ const
PF_ATM = AF_ATM;
PF_INET6 = AF_INET6;
PF_MAX = AF_MAX;
INVALID_SOCKET = -1;
SOCKET_ERROR = -1;

3
rtl/os2/sockets.pas
View File

@ -124,6 +124,9 @@ Type
// OS/2 stack based on BSD stack
{$DEFINE BSD}
{$I socketsh.inc}
INVALID_SOCKET = TSocket(not(0));
SOCKET_ERROR = -1;
Implementation