mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-08 14:06:57 +02:00
* 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 -
This commit is contained in:
parent
f1cdb5c4e9
commit
1bd5d030f5
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user