From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 15 Oct 1992 16:46:07 +0000 (+0000)
Subject: Add definition of reg:stack-guard.
X-Git-Tag: 20090517-FFI~8854
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1bc539311ef8ab30b922a39846cfb807a79ed004;p=mit-scheme.git

Add definition of reg:stack-guard.
---

diff --git a/v7/src/compiler/machines/alpha/lapgen.scm b/v7/src/compiler/machines/alpha/lapgen.scm
index f61ff6ef4..4234c2916 100644
--- a/v7/src/compiler/machines/alpha/lapgen.scm
+++ b/v7/src/compiler/machines/alpha/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgen.scm,v 1.1 1992/08/29 13:51:26 jinx Exp $
+$Id: lapgen.scm,v 1.2 1992/10/15 16:46:07 jinx Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -824,6 +824,9 @@ case.
 (define-integrable reg:closure-limit
   (INST-EA (OFFSET #x0050 ,regnum:regs-pointer)))
 
+(define-integrable reg:stack-guard
+  (INST-EA (OFFSET #x0058 ,regnum:regs-pointer)))
+
 (define-integrable reg:divq
   (INST-EA (OFFSET #x00A0 ,regnum:regs-pointer)))