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

+ allow to disable smartlinking if NO_SMART_LINK is defined

Browse Source 
git-svn-id: trunk@6834 -
This commit is contained in:
pierre 2007-03-13 22:55:50 +00:00
parent c4f65df9f9
commit 73f4288d97
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/winsock.pp
View File

@ -14,7 +14,9 @@
**********************************************************************}
{$ifndef NO_SMART_LINK}
{$smartlink on}
{$endif}
unit winsock;
interface

6
rtl/win/winsock2.pp
View File

@ -10,7 +10,9 @@
unit WinSock2;
{$ifndef NO_SMART_LINK}
{$smartlink on}
{$endif}
interface
@ -378,7 +380,7 @@ type
2: (S_addr: u_long);
end;
in_addr = TInAddr;
PIn6Addr = ^TIn6Addr;
TIn6Addr = record
case byte of
@ -402,7 +404,7 @@ type
sa_data: array[0..13] of Char)
end;
sockaddr_in = TSockAddrIn;
PSockAddrIn6 = ^TSockAddrIn6;
TSockAddrIn6 = record
sin6_family : u_short;