Update stack-guard offset to new value.

diff --git a/v7/src/compiler/machines/i386/machin.scm b/v7/src/compiler/machines/i386/machin.scm
index d5bcfe154106e963455ada84cfa2496b09318d9d..0cef124a6673f57df3ac429cdd58b8971422d0d6 100644 (file)
--- a/v7/src/compiler/machines/i386/machin.scm
+++ b/v7/src/compiler/machines/i386/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.12 1992/02/28 20:22:42 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.13 1992/08/17 16:35:58 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/machin.scm,v 4.26 1991/10/25 06:49:34 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -171,12 +171,12 @@ MIT in each case. |#
         (error "illegal machine register" register))))
 
 (define-integrable register-block/memtop-offset 0)
-(define-integrable register-block/stack-guard-offset 1)
 (define-integrable register-block/value-offset 2)
 (define-integrable register-block/environment-offset 3)
 (define-integrable register-block/dynamic-link-offset 4) ; compiler temp
-(define-integrable register-block/utility-arg4-offset 9) ; closure free
 (define-integrable register-block/lexpr-primitive-arity-offset 7)
+(define-integrable register-block/utility-arg4-offset 9) ; closure free
+(define-integrable register-block/stack-guard-offset 11)
 
 (define-integrable (fits-in-signed-byte? value)
   (and (>= value -128) (< value 128)))

diff --git a/v7/src/compiler/machines/vax/lapgen.scm b/v7/src/compiler/machines/vax/lapgen.scm
index 6936a73f17b5eaabbe6f78c6a95e16da54430170..01393eb980eab5298018ad9e71f798054496389f 100644 (file)
--- a/v7/src/compiler/machines/vax/lapgen.scm
+++ b/v7/src/compiler/machines/vax/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/lapgen.scm,v 4.13 1992/08/05 21:42:20 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/lapgen.scm,v 4.14 1992/08/17 16:36:28 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -541,10 +541,10 @@ MIT in each case. |#
 ;;; Layout of the Scheme register array.
 
 (define-integrable reg:compiled-memtop         (INST-EA (@R 10)))
-(define-integrable reg:stack-guard             (INST-EA (@RO B 10 #x0004)))
 (define-integrable reg:environment             (INST-EA (@RO B 10 #x000C)))
 (define-integrable reg:temp                    (INST-EA (@RO B 10 #x0010)))
 (define-integrable reg:lexpr-primitive-arity   (INST-EA (@RO B 10 #x001C)))
+(define-integrable reg:stack-guard             (INST-EA (@RO B 10 #x002C)))
 
 (let-syntax ((define-codes
               (macro (start . names)