From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 2 Oct 1990 21:50:09 +0000 (+0000)
Subject: Add asm_primitive_error.
X-Git-Tag: 20090517-FFI~11169
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a711db6e12cb5b2dc43034b4bf39ef75001b9bdf;p=mit-scheme.git

Add asm_primitive_error.
---

diff --git a/v7/src/microcode/cmpauxmd/mc68k.m4 b/v7/src/microcode/cmpauxmd/mc68k.m4
index fd8bb8c9e..58783dd04 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.13 1990/06/20 17:38:46 cph Exp $
+###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/mc68k.m4,v 1.14 1990/10/02 21:49:55 jinx Rel $
 ###
 ###	Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 ###
@@ -312,6 +312,10 @@ define_c_label(interface_to_C)
 ### of the trampoline storage area, passed to the C handler as the
 ### first argument.
 
+### IMPORTANT:
+### All the asm_* routines are declared in cmpint-mc68k.h.
+### New ones need to be declared there as well!
+
 define_c_label(asm_trampoline_to_interface)
 define_debugging_label(trampoline_to_interface)
 	mov.l	(%sp)+,%d1
@@ -358,6 +362,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(primitive_error,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 70d57f344..8bf14f2a0 100644
--- a/v7/src/microcode/cmpintmd/mc68k.h
+++ b/v7/src/microcode/cmpintmd/mc68k.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mc68k.h,v 1.16 1990/09/08 00:10:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mc68k.h,v 1.17 1990/10/02 21:50:09 jinx Rel $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -306,6 +306,7 @@ mc68k_reset_hook ()
   SETUP_REGISTER (asm_primitive_error);			/* 35 */
   SETUP_REGISTER (asm_allocate_closure);		/* 36 */
 
+  if (offset != A6_CLOSURE_HOOK_OFFSET)
 
 #define CLOSURE_ENTRY_WORDS						\
   (COMPILED_CLOSURE_ENTRY_SIZE / (sizeof (SCHEME_OBJECT)))