From aee3a00346d67b14f862c85926836a15ad6b184e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 12 Apr 1990 22:46:59 +0000 Subject: [PATCH] Add asm_interrupt_multiclosure. --- v7/src/microcode/cmpauxmd/mc68k.m4 | 3 ++- v7/src/microcode/cmpintmd/mc68k.h | 7 +++++-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/v7/src/microcode/cmpauxmd/mc68k.m4 b/v7/src/microcode/cmpauxmd/mc68k.m4 index abbe0948a..c736504f8 100644 --- 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 5a5101c0a..369c1bcee 100644 --- 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 */ #define CLOSURE_ENTRY_WORDS \ (COMPILED_CLOSURE_ENTRY_SIZE / (sizeof (SCHEME_OBJECT))) -- 2.25.1