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

    default return value on the stack for fpu routines

git-svn-id: branches/jvmbackend@18744 -

compiler/jvm/hlcgcpu.pas

@@ -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