paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 18:57:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

* link smart and FIXXX const corrected

Browse Source
This commit is contained in:
pierre 2000-06-21 22:26:08 +00:00
parent 945ae36b63
commit 4fa1eae43b
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/win32/winsock.pp
View File

@ -17,6 +17,17 @@
{$PACKRECORDS 1}
unit winsock;
{$ifndef VER0_99_14}
{$ifndef NO_SMART_LINK}
{$define support_smartlink}
{$endif}
{$endif}
{$ifdef support_smartlink}
{$smartlink on}
{$endif}
interface
@ -78,13 +89,13 @@ unit winsock;
IOC_INOUT = IOC_IN or IOC_OUT;
FIONREAD = IOC_OUT or
((4 and IOCPARM_MASK) shl 16) or
(101 shl 8) or 127;
(102 shl 8) or 127;
FIONBIO = IOC_IN or
((4 and IOCPARM_MASK) shl 16) or
(101 shl 8) or 126;
(102 shl 8) or 126;
FIOASYNC = IOC_IN or
((4 and IOCPARM_MASK) shl 16) or
(101 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
@ -940,7 +951,10 @@ unit winsock;
end.
{
$Log$
Revision 1.10 2000-03-20 16:14:37 alex
Revision 1.11 2000-06-21 22:26:08 pierre
* link smart and FIXXX const corrected
Revision 1.10 2000/03/20 16:14:37 alex
* extended to make use of OS_TYPES unit.
Revision 1.9 2000/03/01 11:18:39 pierre
@ -965,4 +979,4 @@ end.
Revision 1.4 2000/01/07 16:41:53 daniel
* copyright 2000
}
}