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

* Fix for RTTI alignment from Paul

Browse Source 
git-svn-id: trunk@14564 -
This commit is contained in:
pierre 2010-01-07 17:05:11 +00:00
parent 0c1247ba7d
commit 9896f48317
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgrtti.pas
View File

@ -733,6 +733,9 @@ implementation
{ write name of result type }
write_rtti_name(def.returndef);
if (tf_requires_proper_alignment in target_info.flags) then
current_asmdata.asmlists[al_rtti].concat(Cai_align.Create(sizeof(TConstPtrUint)));
{ write result typeinfo }
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(ref_rtti(def.returndef,fullrtti)))
end;
@ -740,6 +743,9 @@ implementation
{ write calling convention }
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_8bit(ProcCallOptionToCallConv[def.proccalloption]));
if (tf_requires_proper_alignment in target_info.flags) then
current_asmdata.asmlists[al_rtti].concat(Cai_align.Create(sizeof(TConstPtrUint)));
{ write params typeinfo }
for i:=0 to def.paras.count-1 do
if not(vo_is_hidden_para in tparavarsym(def.paras[i]).varoptions) then