paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also generate indirect symbols for AB_PRIVATE_EXTERN symbols as these might be used from a unit in another package due to inlining

Browse Source 
git-svn-id: trunk@43533 -
This commit is contained in:
svenbarth 2019-11-21 21:44:12 +00:00
parent f5caa9940b
commit 04984e9af9
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

@ -56,7 +56,7 @@ function TAsmDataDef.DefineAsmSymbolByClass(symclass: TAsmSymbolClass; const s:
result:=DefineAsmSymbolByClassBase(symclass,s,_bind,_typ,def,wasdefined);
{ define the indirect asmsymbol if necessary }
if not wasdefined and
(_bind in [AB_GLOBAL,AB_COMMON]) and
(_bind in [AB_GLOBAL,AB_COMMON,AB_PRIVATE_EXTERN]) and
(_typ<>AT_DATA_NOINDIRECT) and
(((_typ=AT_DATA) and
(tf_supports_packages in target_info.flags) and