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

* keep maximum used evaluation stack size up-to-date when putting a

Browse Source 
default return value on the stack for fpu routines

git-svn-id: branches/jvmbackend@18744 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:31:53 +00:00
parent 27c004807f
commit f4690f90ad
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/jvm/hlcgcpu.pas
View File

@ -824,9 +824,15 @@ implementation
R_FPUREGISTER:
case tfloatdef(resdef).floattype of
s32real:
list.concat(taicpu.op_none(a_fconst_0));
begin
list.concat(taicpu.op_none(a_fconst_0));
incstack(list,1);
end;
s64real:
list.concat(taicpu.op_none(a_dconst_0));
begin
list.concat(taicpu.op_none(a_dconst_0));
incstack(list,2);
end;
else
internalerror(2011010302);
end