Fixed bug in comutil_interrupt_dlink (passing 2 instead of 3 arguments

to compiler_interrupt_common).

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index ca567619690e84c389683ef32f35eb0653f84385..8f2aa26c626c66df99e47b46bf9759edc6c510d2 100644 (file)
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.25 1990/04/12 22:46:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.26 1990/04/21 17:18:08 jmiller Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -1418,6 +1418,7 @@ comutil_interrupt_dlink (entry_point, dlink, ignore_3, ignore_4)
 {
   return
     (compiler_interrupt_common(entry_point,
+                              ENTRY_SKIPPED_CHECK_OFFSET,
                               MAKE_POINTER_OBJECT(TC_STACK_ENVIRONMENT,
                                                   dlink)));
 }

diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index 5ce1e4a9d3f63e7b4f1e667c98faafbab4ce54eb..0154e354d051ae8c2c9e7e690c8829b2a465d898 100644 (file)
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.25 1990/04/12 22:46:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.26 1990/04/21 17:18:08 jmiller Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -1418,6 +1418,7 @@ comutil_interrupt_dlink (entry_point, dlink, ignore_3, ignore_4)
 {
   return
     (compiler_interrupt_common(entry_point,
+                              ENTRY_SKIPPED_CHECK_OFFSET,
                               MAKE_POINTER_OBJECT(TC_STACK_ENVIRONMENT,
                                                   dlink)));
 }