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

* Fixed another case of emitting data without defining a section. Mantis #26473.

Browse Source 
git-svn-id: trunk@28730 -
This commit is contained in:
sergei 2014-10-03 11:19:25 +00:00
parent b936b69730
commit d88e0df1ba
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/ngtcon.pas
View File

@ -859,7 +859,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
begin
current_asmdata.getdatalabel(ll);
list.concat(Tai_const.Create_sym(ll));
current_asmdata.asmlists[al_typedconsts].concat(tai_align.create(const_align(sizeof(pint))));
new_section(current_asmdata.asmlists[al_typedconsts],sec_rodata_norel,ll.name,const_align(sizeof(pint)));
current_asmdata.asmlists[al_typedconsts].concat(Tai_label.Create(ll));
if (node.nodetype in [stringconstn,ordconstn]) then
begin