Просмотр исходного кода

Merged revisions 10429 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r10429 | florian | 2008-03-02 17:44:08 +0100 (So, 02 Mrz 2008) | 2 lines

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

git-svn-id: branches/fixes_2_2@10430 -

florian 17 лет назад
Родитель
Сommit
b0657554d8
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      compiler/psub.pas

+ 2 - 1
compiler/psub.pas

@@ -1006,7 +1006,8 @@ implementation
             gen_restore_used_regs(aktproccode);
             { We know the size of the stack, now we can generate the
               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
                (procdef.proctypeoption<>potype_proginit) then
               begin