From 9230ae04b4810c93f1043cfadae832f6db8a69ae Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 24 Mar 1988 07:55:27 +0000 Subject: [PATCH] * Delete `with-threaded-continuation' primitive. * Implement `get-interrupt-enables' primitive. * Split `primitive-type' and friends into two classes: one which is gc-safe and touches arguments, the other non-safe with no touching. * Implement primitive-procedure name aliasing in microcode. This allows microcode name changes to reuse existing bands. * Do not use "-q" ld switch. This causes lossage when Scheme is loaded over NFS. --- v7/src/microcode/utabmd.scm | 5 +++-- v8/src/microcode/utabmd.scm | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index 66375b2ba..db45a90a4 100644 --- a/v7/src/microcode/utabmd.scm +++ b/v7/src/microcode/utabmd.scm @@ -37,7 +37,7 @@ ;;;; Machine Dependent Type Tables -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $ (declare (usual-integrations)) @@ -566,8 +566,9 @@ FLONUM-EXPONENT-LENGTH ;07 OS-NAME-STRING ;08 OS-VARIANT-STRING ;09 + STACK-TYPE-STRING ;0A )) ;;; This identification string is saved by the system. -"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $" \ No newline at end of file +"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $" \ No newline at end of file diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm index 52c85e9f4..772ddf583 100644 --- a/v8/src/microcode/utabmd.scm +++ b/v8/src/microcode/utabmd.scm @@ -37,7 +37,7 @@ ;;;; Machine Dependent Type Tables -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $ (declare (usual-integrations)) @@ -566,8 +566,9 @@ FLONUM-EXPONENT-LENGTH ;07 OS-NAME-STRING ;08 OS-VARIANT-STRING ;09 + STACK-TYPE-STRING ;0A )) ;;; This identification string is saved by the system. -"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $" \ No newline at end of file +"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $" \ No newline at end of file -- 2.25.1