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 c8ec0608848d2fae0b12aee4452726783f6e91e7..7d849ab4e1a73ee7f26ba4e8ef7ba79728f274c2 100644 (file)
--- 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))