Procházet zdrojové kódy

* another use_fixed_stack fix

git-svn-id: trunk@2865 -
Jonas Maebe před 19 roky
rodič
revize
8ef01e93c1
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  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