paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +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: R_FPUREGISTER:
case tfloatdef(resdef).floattype of case tfloatdef(resdef).floattype of
s32real: s32real:
list.concat(taicpu.op_none(a_fconst_0)); begin
list.concat(taicpu.op_none(a_fconst_0));
incstack(list,1);
end;
s64real: s64real:
list.concat(taicpu.op_none(a_dconst_0)); begin
list.concat(taicpu.op_none(a_dconst_0));
incstack(list,2);
end;
else else
internalerror(2011010302); internalerror(2011010302);
end end