Add asm_primitive_error.

diff --git a/v7/src/microcode/cmpauxmd/mc68k.m4 b/v7/src/microcode/cmpauxmd/mc68k.m4
index fd8bb8c9e978abca9079e24cced54cf28409d94a..58783dd04b5165f9033ad0455a179702bbbfe528 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.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 70d57f3443f455c5e805117b03938f7547693b2a..8bf14f2a0bf9d7fdc4749459946c6f3a50de523a 100644 (file)
--- 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)
 \f
 #define CLOSURE_ENTRY_WORDS                                            \
   (COMPILED_CLOSURE_ENTRY_SIZE / (sizeof (SCHEME_OBJECT)))