소스 검색

* 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;