From 73f4288d97d652459542a2f3e6a767ef271dc4d3 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 13 Mar 2007 22:55:50 +0000
Subject: [PATCH]  + allow to disable smartlinking if NO_SMART_LINK is defined

git-svn-id: trunk@6834 -
---
 rtl/win/winsock.pp  | 2 ++
 rtl/win/winsock2.pp | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/win/winsock.pp b/rtl/win/winsock.pp
index 4b12bc723f..e5b680b637 100644
--- a/rtl/win/winsock.pp
+++ b/rtl/win/winsock.pp
@@ -14,7 +14,9 @@
 
  **********************************************************************}
 
+{$ifndef NO_SMART_LINK}
 {$smartlink on}
+{$endif}
 unit winsock;
 
   interface
diff --git a/rtl/win/winsock2.pp b/rtl/win/winsock2.pp
index d8dfd5bbac..6aa1591d88 100755
--- a/rtl/win/winsock2.pp
+++ b/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;