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

* gen_load_cgpara_loc, MIPS-specific: added missing calls to unget_para, and disabled part that loads upper and lower halves of Double values from integer registers. It produces invalid code, but that's hidden by MIPS code generator copying all parameters to stack (so this code is never executed).

Browse Source 
git-svn-id: trunk@23622 -
This commit is contained in:
sergei 2013-02-15 22:05:24 +00:00
parent 63f6afffd5
commit 54aefb1ba0
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/ncgutil.pas
View File

@ -1069,8 +1069,11 @@ implementation
(paraloc^.Loc in [LOC_REGISTER,LOC_CREGISTER]) then
begin
gen_alloc_regloc(list,destloc);
unget_para(paraloc^);
list.Concat(taicpu.op_reg_reg(A_MTC1,paraloc^.register,destloc.register));
end
{ TODO: Produces invalid code, needs fixing together with regalloc setup. }
{
else if (destloc.size = OS_F64) and
(paraloc^.Loc in [LOC_REGISTER,LOC_CREGISTER]) and
(paraloc^.next^.Loc in [LOC_REGISTER,LOC_CREGISTER]) then
@ -1078,10 +1081,13 @@ implementation
gen_alloc_regloc(list,destloc);
tmpreg:=destloc.register;
unget_para(paraloc^);
list.Concat(taicpu.op_reg_reg(A_MTC1,paraloc^.register,tmpreg));
setsupreg(tmpreg,getsupreg(tmpreg)+1);
unget_para(paraloc^.next^);
list.Concat(taicpu.op_reg_reg(A_MTC1,paraloc^.Next^.register,tmpreg));
end
}
else
begin
sizeleft := TCGSize2Size[destloc.size];