Procházet zdrojové kódy

* don't load stack size value when generic stack checking is done, resolves #10924

git-svn-id: trunk@10429 -
florian před 17 roky
rodič
revize
39250de33a
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 2 1
      compiler/psub.pas

+ 2 - 1
compiler/psub.pas

@@ -1046,7 +1046,8 @@ implementation
             gen_restore_used_regs(aktproccode);
             gen_restore_used_regs(aktproccode);
             { We know the size of the stack, now we can generate the
             { We know the size of the stack, now we can generate the
               parameter that is passed to the stack checking code }
               parameter that is passed to the stack checking code }
-            if (cs_check_stack in entryswitches) and
+            if not(tf_no_generic_stackcheck in target_info.flags) and
+               (cs_check_stack in entryswitches) and
                not(po_assembler in procdef.procoptions) and
                not(po_assembler in procdef.procoptions) and
                (procdef.proctypeoption<>potype_proginit) then
                (procdef.proctypeoption<>potype_proginit) then
               begin
               begin