From 39c553707ecdb7eae9aad84afe0cdeb7dacc93e7 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 15 Dec 2005 12:04:39 +0000
Subject: [PATCH]   * fix win32 linking

git-svn-id: trunk@1957 -
---
 compiler/pmodules.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index e5f6137cae..774bbec1e1 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -1418,7 +1418,7 @@ implementation
            DLL will include the edata section }
          if assigned(exportlib) and
             (target_info.system in [system_i386_win32,system_i386_wdosx]) and
-            ((current_module.flags or uf_has_exports)<>0) then
+            ((current_module.flags and uf_has_exports)<>0) then
            asmlist[al_procedures].concat(tai_const.create_sym(exportlib.edatalabel));
 
          If resourcestrings.ResStrCount>0 then