Add frame-pointer register.

diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm
index 371394aebdba20593e02576874b8615c92a02f64..a2fa3aeb1e7963dbbbae84de5a6f39a3c280fcca 100644 (file)
--- a/v7/src/compiler/rtlbase/rtlty1.scm
+++ b/v7/src/compiler/rtlbase/rtlty1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 1.2 1987/04/12 00:21:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 1.3 1987/05/07 00:11:33 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -83,7 +83,7 @@ MIT in each case. |#
 (define-rtl-statement message-receiver:closure rtl: size)
 (define-rtl-statement message-receiver:stack rtl: size)
 (define-rtl-statement message-receiver:subproblem rtl: continuation)
-
+\f
 (define-integrable rtl:expression-type first)
 (define-integrable rtl:address-register second)
 (define-integrable rtl:address-number third)
@@ -103,6 +103,9 @@ MIT in each case. |#
 (define-integrable register:environment
   'ENVIRONMENT)
 
+(define-integrable register:frame-pointer
+  'FRAME-POINTER)
+
 (define-integrable register:stack-pointer
   'STACK-POINTER)