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

* don't apply user-specified constant alignments to RTTI data

Browse Source 
git-svn-id: trunk@42481 -
This commit is contained in:
Jonas Maebe 2019-07-22 12:06:22 +00:00
parent a60ab40237
commit 18dfdb423e
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/ncgrtti.pas
View File

@ -393,7 +393,7 @@ implementation
begin
current_asmdata.getglobaldatalabel(loclab);
loctcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable,tcalo_apply_constalign]);
loctcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable]);
loctcb.begin_anonymous_record('',defaultpacking,min(reqalign,SizeOf(PInt)),
targetinfos[target_info.system]^.alignment.recordalignmin);
@ -1825,7 +1825,7 @@ implementation
begin
current_asmdata.getglobaldatalabel(arglab);
argtcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable,tcalo_apply_constalign]);
argtcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable]);
argtcb.begin_anonymous_record('',defaultpacking,min(reqalign,SizeOf(PInt)),
targetinfos[target_info.system]^.alignment.recordalignmin);
@ -1884,7 +1884,7 @@ implementation
{ first write the attribute list as a separate table }
current_asmdata.getglobaldatalabel(tbllab);
tbltcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable,tcalo_apply_constalign]);
tbltcb:=ctai_typedconstbuilder.create([tcalo_is_lab,tcalo_make_dead_strippable]);
tbltcb.begin_anonymous_record(
internaltypeprefixName[itp_rtti_attr_list]+tostr(count),