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

Only add indirect symbol for constants if tf_supports_packages flag is set in target_info.flags

Browse Source 
git-svn-id: trunk@33684 -
This commit is contained in:
pierre 2016-05-12 07:05:58 +00:00
parent ac1b59ef03
commit 94d8d9927d
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ptconst.pas
View File

@ -135,6 +135,8 @@ implementation
current_asmdata.asmlists[al_const].concatlist(datalist); current_asmdata.asmlists[al_const].concatlist(datalist);
{ the (empty) lists themselves are freed by tcbuilder } { the (empty) lists themselves are freed by tcbuilder }
if (tf_supports_packages in target_info.flags) then
begin
{ add indirect symbol } { add indirect symbol }
{ ToDo: do we also need this for the else part? } { ToDo: do we also need this for the else part? }
new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment)); new_section(list,sec_rodata,lower(sym.mangledname),const_align(sym.vardef.alignment));
@ -142,6 +144,7 @@ implementation
list.concat(Tai_symbol.Create_Global(symind,0)); list.concat(Tai_symbol.Create_Global(symind,0));
list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0)); list.concat(Tai_const.Createname(sym.mangledname,AT_DATA,0));
list.concat(tai_symbol_end.Create(symind)); list.concat(tai_symbol_end.Create(symind));
end;
end end
else else
begin begin