From 5f72a4abd1c5de78a54369a471ff86e1b36b5780 Mon Sep 17 00:00:00 2001
From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Sat, 21 Apr 1990 17:18:08 +0000
Subject: [PATCH] Fixed bug in comutil_interrupt_dlink (passing 2 instead of 3
 arguments to compiler_interrupt_common).

---
 v7/src/microcode/cmpint.c | 3 ++-
 v8/src/microcode/cmpint.c | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index ca5676196..8f2aa26c6 100644
--- 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 5ce1e4a9d..0154e354d 100644
--- 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)));
 }
-- 
2.25.1