浏览代码

* don't export the indirect symbols on platforms that require the import redirection as there the indirect ones will be created in the importing binary

git-svn-id: trunk@34341 -
svenbarth 9 年之前
父节点
当前提交
1bd5d030f5
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/aasmdef.pas

+ 1 - 1
compiler/aasmdef.pas

@@ -74,7 +74,7 @@ function TAsmDataDef.DefineAsmSymbolByClass(symclass: TAsmSymbolClass; const s:
           lower(symind.name),
           const_align(ptrdef.alignment)));
         tcb.free;
-        if _typ=AT_DATA_FORCEINDIRECT then
+        if (_typ=AT_DATA_FORCEINDIRECT) and not (target_info.system in systems_indirect_var_imports) then
           current_module.add_public_asmsym(symind.name,AB_INDIRECT,AT_DATA);
       end;
   end;