From 8003ca1351169ad77f36f60abfab1090d28863b4 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 17 Aug 1992 16:36:28 +0000 Subject: [PATCH] Update stack-guard offset to new value. --- v7/src/compiler/machines/i386/machin.scm | 6 +++--- v7/src/compiler/machines/vax/lapgen.scm | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) 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) -- 2.25.1