Add GENERIC_TRAMPOLINE_QUOTIENT, GENERIC_TRAMPOLINE_REMAINDER,

GENERIC_TRAMPOLINE_MODULO, and ARITY_DISPATCHER_TAG slots to the
fixed-objects vector.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 7a8610519d64a3931efa7164f630cb6131865f60..b65986f0e534c096556db678044bd6ad2420ba58 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.56 1991/03/10 01:19:33 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.57 1991/05/05 00:30:52 jinx Exp $
 ;;;
 ;;;    Copyright (c) 1987-91 Massachusetts Institute of Technology
 ;;;
@@ -102,6 +102,10 @@
               GENERIC-TRAMPOLINE-SUBTRACT              ;2D
               GENERIC-TRAMPOLINE-MULTIPLY              ;2E
               GENERIC-TRAMPOLINE-DIVIDE                ;2F
+              GENERIC-TRAMPOLINE-QUOTIENT              ;30
+              GENERIC-TRAMPOLINE-REMAINDER             ;31
+              GENERIC-TRAMPOLINE-MODULO                ;32
+              ARITY-DISPATCHER-TAG                     ;33
               ))
 \f
 ;;; [] Types
@@ -690,4 +694,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.56 1991/03/10 01:19:33 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.57 1991/05/05 00:30:52 jinx Exp $"
\ No newline at end of file

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 112c00c649faf6ee842f5725a7603527c3c958f8..da4ae808a7cadef8fd6f835f0b9ced942059e2ec 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.56 1991/03/10 01:19:33 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.57 1991/05/05 00:30:52 jinx Exp $
 ;;;
 ;;;    Copyright (c) 1987-91 Massachusetts Institute of Technology
 ;;;
@@ -102,6 +102,10 @@
               GENERIC-TRAMPOLINE-SUBTRACT              ;2D
               GENERIC-TRAMPOLINE-MULTIPLY              ;2E
               GENERIC-TRAMPOLINE-DIVIDE                ;2F
+              GENERIC-TRAMPOLINE-QUOTIENT              ;30
+              GENERIC-TRAMPOLINE-REMAINDER             ;31
+              GENERIC-TRAMPOLINE-MODULO                ;32
+              ARITY-DISPATCHER-TAG                     ;33
               ))
 \f
 ;;; [] Types
@@ -690,4 +694,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.56 1991/03/10 01:19:33 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.57 1991/05/05 00:30:52 jinx Exp $"
\ No newline at end of file