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

* only start a new object file for typed const data if we are instructed

Browse Source 
to start a new section (no smart linking in the middle of section data)

git-svn-id: branches/hlcgllvm@28325 -
This commit is contained in:
Jonas Maebe 2014-08-06 18:04:33 +00:00
parent c84a8a4bc2
commit 5144a0d1e6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmcnst.pas
View File

@ -404,11 +404,13 @@ implementation
prelist: tasmlist;
begin
prelist:=tasmlist.create_without_marker;
maybe_new_object_file(prelist);
{ only now add items based on the symbolname, because it may be
modified by the "section" specifier in case of a typed constant }
if section<>sec_none then
new_section(prelist,section,secname,const_align(alignment));
begin
maybe_new_object_file(prelist);
new_section(prelist,section,secname,const_align(alignment));
end;
if not lab then
if sym.bind=AB_GLOBAL then
prelist.concat(tai_symbol.Create_Global(sym,0))