Преглед изворни кода

* 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),
           lower(symind.name),
           const_align(ptrdef.alignment)));
           const_align(ptrdef.alignment)));
         tcb.free;
         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);
           current_module.add_public_asmsym(symind.name,AB_INDIRECT,AT_DATA);
       end;
       end;
   end;
   end;