From: ssmith <ssmith>
Date: Tue, 10 Jan 1995 23:15:57 +0000 (+0000)
Subject: Added max-type-code and machine/cont-adjustment -- copied verbatim from the
X-Git-Tag: 20090517-FFI~6770
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=68c83d2bec44918a34b956ce0b173c8feda978f5;p=mit-scheme.git

Added max-type-code and machine/cont-adjustment -- copied verbatim from the
Spectrum's machin.scm.
---

diff --git a/v8/src/compiler/machines/i386/machin.scm b/v8/src/compiler/machines/i386/machin.scm
index c8ec06088..7d849ab4e 100644
--- a/v8/src/compiler/machines/i386/machin.scm
+++ b/v8/src/compiler/machines/i386/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.2 1995/01/10 21:55:11 ssmith Exp $
+$Id: machin.scm,v 1.3 1995/01/10 23:15:57 ssmith Exp $
 
 Copyright (c) 1992-1995 Massachusetts Institute of Technology
 
@@ -76,6 +76,18 @@ MIT in each case. |#
 
 (define-integrable address-units-per-packed-char 1)
 
+; Pulled from Spectrum's 
+(define-integrable max-type-code
+  ;; (-1+ (expt 2 scheme-type-width))  ***
+  63)
+
+; Pulled from Spectrum's 
+(define (machine/cont-adjustment)
+  ;; Distance in bytes between a raw continuation
+  ;; (as left behind by JSR) and the real continuation
+  ;; (after descriptor)
+  0)
+
 (define #|-integrable|# untagged-fixnums?
   ;; true when fixnums have tags 000000... and 111111...
   (and (= 0 (ucode-type positive-fixnum))