Browse Source

* fix win32 linking

git-svn-id: trunk@1957 -
peter 19 years ago
parent
commit
39c553707e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/pmodules.pas

+ 1 - 1
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