Browse Source

+ allow to disable smartlinking if NO_SMART_LINK is defined

git-svn-id: trunk@6834 -
pierre 18 years ago
parent
commit
73f4288d97
2 changed files with 6 additions and 2 deletions
  1. 2 0
      rtl/win/winsock.pp
  2. 4 2
      rtl/win/winsock2.pp

+ 2 - 0
rtl/win/winsock.pp

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

+ 4 - 2
rtl/win/winsock2.pp

@@ -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;