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

* Handle vo_has_section for constants

Browse Source 
git-svn-id: trunk@17900 -
This commit is contained in:
pierre 2011-07-01 14:26:21 +00:00
parent e6b5ce8557
commit a45b29911c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ptconst.pas
View File

@ -1483,7 +1483,10 @@ implementation
{ only now add items based on the symbolname, because it may }
{ have been modified by the directives parsed above }
new_section(list,cursectype,lower(sym.mangledname),const_align(sym.vardef.alignment));
if vo_has_section in sym.varoptions then
new_section(list,sec_user,sym.section,const_align(sym.vardef.alignment))
else
new_section(list,cursectype,lower(sym.mangledname),const_align(sym.vardef.alignment));
if (sym.owner.symtabletype=globalsymtable) or
create_smartlink or
(assigned(current_procinfo) and