Add asm_interrupt_multiclosure.

diff --git a/v7/src/microcode/cmpauxmd/mc68k.m4 b/v7/src/microcode/cmpauxmd/mc68k.m4
index abbe0948aa7712a5ef8cd313c8dbe484a1d7e5c3..c736504f896707193a2c04b238141881db94976e 100644 (file)
--- a/v7/src/microcode/cmpauxmd/mc68k.m4
+++ b/v7/src/microcode/cmpauxmd/mc68k.m4
@@ -1,6 +1,6 @@
 ### -*-Midas-*-
 ###
-###    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/mc68k.m4,v 1.9 1990/02/06 16:15:20 jinx Exp $
+###    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/mc68k.m4,v 1.10 1990/04/12 22:46:59 jinx Exp $
 ###
 ###    Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 ###
@@ -358,6 +358,7 @@ define_interface_indirection(generic_negative,2a)
 define_interface_indirection(generic_add,2b)
 define_interface_indirection(generic_positive,2c)
 define_interface_indirection(generic_zero,2d)
+define_interface_jsr_indirection(interrupt_multiclosure,36)
 
 # Save an additional instruction here to load the dynamic link.
 define_c_label(asm_interrupt_dlink)

diff --git a/v7/src/microcode/cmpintmd/mc68k.h b/v7/src/microcode/cmpintmd/mc68k.h
index 5a5101c0a13c15d7ffe9241aebae4a94032cf512..369c1bceed50257a277d36f2e477bef68660a708 100644 (file)
--- a/v7/src/microcode/cmpintmd/mc68k.h
+++ b/v7/src/microcode/cmpintmd/mc68k.h
@@ -1,6 +1,8 @@
 /* -*-C-*-
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mc68k.h,v 1.12 1990/04/12 22:45:55 jinx Exp $
+
+Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -30,7 +32,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mc68k.h,v 1.11 1989/12/10 00:49:58 cph Exp $
+/*
  *
  * Compiled code interface macros.
  *
@@ -258,6 +260,7 @@ mc68k_reset_hook ()
   SETUP_REGISTER (asm_primitive_error);                        /* 35 */
   SETUP_REGISTER (asm_allocate_closure);               /* 36 */
 
+  SETUP_REGISTER (asm_interrupt_multiclosure);         /* 35 */
 \f
 #define CLOSURE_ENTRY_WORDS                                            \
   (COMPILED_CLOSURE_ENTRY_SIZE / (sizeof (SCHEME_OBJECT)))