paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 10:48:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 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

Browse Source 
git-svn-id: trunk@34341 -
This commit is contained in:
svenbarth 2016-08-19 13:48:27 +00:00
parent f1cdb5c4e9
commit 1bd5d030f5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aasmdef.pas
View File

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