From 394fb3197d89bfc00cfedb556ac97bab54a019af Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 7 May 1987 00:11:33 +0000 Subject: [PATCH] Add frame-pointer register. --- v7/src/compiler/rtlbase/rtlty1.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm index 371394aeb..a2fa3aeb1 100644 --- 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) - + (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) -- 2.25.1