浏览代码

* fix win32 linking

git-svn-id: trunk@1957 -
peter 19 年之前
父节点
当前提交
39c553707e
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/pmodules.pas

+ 1 - 1
compiler/pmodules.pas

@@ -1418,7 +1418,7 @@ implementation
            DLL will include the edata section }
            DLL will include the edata section }
          if assigned(exportlib) and
          if assigned(exportlib) and
             (target_info.system in [system_i386_win32,system_i386_wdosx]) 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));
            asmlist[al_procedures].concat(tai_const.create_sym(exportlib.edatalabel));
 
 
          If resourcestrings.ResStrCount>0 then
          If resourcestrings.ResStrCount>0 then