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

+ One more missing call to unget_para (MIPS-specific)

Browse Source 
git-svn-id: trunk@23766 -
This commit is contained in:
sergei 2013-03-10 04:08:43 +00:00
parent fc02f5c7f7
commit 5e46732bc8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncgutil.pas
View File

@ -1062,6 +1062,7 @@ implementation
if (destloc.size = paraloc^.Size) and if (destloc.size = paraloc^.Size) and
(paraloc^.Loc in [LOC_FPUREGISTER,LOC_CFPUREGISTER]) then (paraloc^.Loc in [LOC_FPUREGISTER,LOC_CFPUREGISTER]) then
begin begin
unget_para(paraloc^);
gen_alloc_regloc(list,destloc); gen_alloc_regloc(list,destloc);
cg.a_loadfpu_reg_reg(list,paraloc^.Size, destloc.size, paraloc^.register, destloc.register); cg.a_loadfpu_reg_reg(list,paraloc^.Size, destloc.size, paraloc^.register, destloc.register);
end end