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

* ttai_typedconstbuilder.finalize_asmlist(): fixed handling of non-local

Browse Source 
symbols that aren't AB_GLOBAL (e.g. AB_PRIVATE_EXTERN)

git-svn-id: trunk@32878 -
This commit is contained in:
Jonas Maebe 2016-01-07 22:05:28 +00:00
parent bf735c7e58
commit 1046c995a8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmcnst.pas
View File

@ -935,10 +935,10 @@ implementation
end; end;
if not(tcalo_is_lab in options) then if not(tcalo_is_lab in options) then
if sym.bind=AB_GLOBAL then if sym.bind=AB_LOCAL then
prelist.concat(tai_symbol.Create_Global(sym,0))
else
prelist.concat(tai_symbol.Create(sym,0)) prelist.concat(tai_symbol.Create(sym,0))
else
prelist.concat(tai_symbol.Create_Global(sym,0))
else else
prelist.concat(tai_label.Create(tasmlabel(sym))); prelist.concat(tai_label.Create(tasmlabel(sym)));
{ insert the symbol information before the data } { insert the symbol information before the data }