From 85a2aac8905bba1d8912cefb1720505a7f7f1955 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sun, 5 May 1991 00:30:52 +0000 Subject: [PATCH] Add GENERIC_TRAMPOLINE_QUOTIENT, GENERIC_TRAMPOLINE_REMAINDER, GENERIC_TRAMPOLINE_MODULO, and ARITY_DISPATCHER_TAG slots to the fixed-objects vector. --- v7/src/microcode/utabmd.scm | 8 ++++++-- v8/src/microcode/utabmd.scm | 8 ++++++-- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index 7a8610519..b65986f0e 100644 --- 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 )) ;;; [] 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 112c00c64..da4ae808a 100644 --- 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 )) ;;; [] 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 -- 2.25.1