]> birchwood-abbey.net Git - mit-scheme.git/commitdiff
microcode: Fix sense of subtraction so STACK_CHECK does anything.
authorTaylor R Campbell <campbell+mit-scheme@mumble.net>
Thu, 26 Nov 2020 04:43:01 +0000 (04:43 +0000)
committerTaylor R Campbell <campbell+mit-scheme@mumble.net>
Thu, 31 Dec 2020 18:34:36 +0000 (18:34 +0000)
(cherry picked from commit c692f84195254b00af8260e44e99e65eea3fda57)

src/microcode/hooks.c

index 4c3c97116d760288e7030f2e11f5623704902b8f..78ce28d57bd41e7499c865fb2ad4a0ad1d94580a 100644 (file)
@@ -265,7 +265,7 @@ unpack_control_point (SCHEME_OBJECT cp)
 
     stack_pointer = STACK_BOTTOM;
     CLEAR_INTERRUPT (INT_Stack_Overflow);
-    STACK_CHECK (end_from - scan_from);
+    STACK_CHECK (scan_from - end_from);
     
     while (scan_from > end_from)
       STACK_PUSH (*--scan_from);