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

* fixed bug in thlcgobj.g_array_rtti_helper introduced in the previous commit

Browse Source 
git-svn-id: branches/i8086@24284 -
This commit is contained in:
nickysn 2013-04-21 13:34:49 +00:00
parent a5c5b05362
commit 57777945a8
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/hlcgobj.pas
View File

@ -3060,6 +3060,7 @@ implementation
paramanager.getintparaloc(pd,2,cgpara2); paramanager.getintparaloc(pd,2,cgpara2);
paramanager.getintparaloc(pd,3,cgpara3); paramanager.getintparaloc(pd,3,cgpara3);
reference_reset_symbol(href,RTTIWriter.get_rtti_label(t,initrtti),0,sizeof(pint));
{ if calling convention is left to right, push parameters 1 and 2 } { if calling convention is left to right, push parameters 1 and 2 }
if pd.is_pushleftright then if pd.is_pushleftright then
begin begin
@ -3068,7 +3069,6 @@ implementation
end; end;
{ push parameter 3 } { push parameter 3 }
reference_reset_symbol(href,RTTIWriter.get_rtti_label(t,initrtti),0,sizeof(pint));
if highloc.loc=LOC_CONSTANT then if highloc.loc=LOC_CONSTANT then
a_load_const_cgpara(list,ptrsinttype,highloc.value+1,cgpara3) a_load_const_cgpara(list,ptrsinttype,highloc.value+1,cgpara3)
else else