From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 17 Aug 1992 16:36:28 +0000 (+0000)
Subject: Update stack-guard offset to new value.
X-Git-Tag: 20090517-FFI~9120
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8003ca1351169ad77f36f60abfab1090d28863b4;p=mit-scheme.git

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 d5bcfe154..0cef124a6 100644
--- 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 6936a73f1..01393eb98 100644
--- 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)