paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some constants changed to unsigned to avoid warnings (bug 3817)

Browse Source
This commit is contained in:
marco 2005-04-03 11:33:08 +00:00
parent cd86e40cb7
commit 3c053e8639
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/win32/winsock.pp
View File

@ -90,15 +90,15 @@ unit winsock;
IOC_OUT = $40000000;
IOC_IN = $80000000;
IOC_INOUT = IOC_IN or IOC_OUT;
FIONREAD = IOC_OUT or
FIONREAD =cardinal( IOC_OUT or
((4 and IOCPARM_MASK) shl 16) or
(102 shl 8) or 127;
FIONBIO = IOC_IN or
(102 shl 8) or 127);
FIONBIO = cardinal(IOC_IN or
((4 and IOCPARM_MASK) shl 16) or
(102 shl 8) or 126;
FIOASYNC = IOC_IN or
(102 shl 8) or 126);
FIOASYNC = cardinal(IOC_IN or
((4 and IOCPARM_MASK) shl 16) or
(102 shl 8) or 125;
(102 shl 8) or 125);
{
Structures returned by network data base library, taken from the
BSD file netdb.h. All addresses are supplied in host order, and
@ -307,7 +307,7 @@ unit winsock;
taken from the BSD file sys/socket.h.
}
const
INVALID_SOCKET = longint(not(1));
INVALID_SOCKET = TSocket(not(1));
SOCKET_ERROR = -1;
SOCK_STREAM = 1;
SOCK_DGRAM = 2;
@ -911,7 +911,10 @@ IOW, there _must_ be 3 versions then: var/const, pchar and pointer}
end.
{
$Log$
Revision 1.16 2005-02-14 17:13:32 peter
Revision 1.17 2005-04-03 11:33:08 marco
* some constants changed to unsigned to avoid warnings (bug 3817)
Revision 1.16 2005/02/14 17:13:32 peter
* truncate log
}