浏览代码

* another use_fixed_stack fix

git-svn-id: trunk@2865 -
Jonas Maebe 19 年之前
父节点
当前提交
8ef01e93c1
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/ncgutil.pas

+ 2 - 1
compiler/ncgutil.pas

@@ -1845,7 +1845,8 @@ implementation
         if current_procinfo.procdef.proccalloption in clearstack_pocalls then
           begin
             parasize:=0;
-            if paramanager.ret_in_param(current_procinfo.procdef.rettype.def,current_procinfo.procdef.proccalloption) then
+            if not(use_fixed_stack) and
+               paramanager.ret_in_param(current_procinfo.procdef.rettype.def,current_procinfo.procdef.proccalloption) then
               inc(parasize,sizeof(aint));
           end
         else