From 68c83d2bec44918a34b956ce0b173c8feda978f5 Mon Sep 17 00:00:00 2001
From: ssmith <ssmith>
Date: Tue, 10 Jan 1995 23:15:57 +0000
Subject: [PATCH] Added max-type-code and machine/cont-adjustment -- copied
 verbatim from the Spectrum's machin.scm.

---
 v8/src/compiler/machines/i386/machin.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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))
-- 
2.25.1