From 14082068c62455197aacf32805249c0331d1d2a6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 3 Nov 1988 06:31:15 +0000 Subject: [PATCH] Define these procedures: interpreter-value-register interpreter-environment-register interpreter-environment-register? --- v7/src/compiler/machines/bobcat/machin.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm index 51b8f4eaf..2e7a67642 100644 --- a/v7/src/compiler/machines/bobcat/machin.scm +++ b/v7/src/compiler/machines/bobcat/machin.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.11 1988/08/29 22:46:42 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.12 1988/11/03 06:31:15 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -169,11 +169,22 @@ MIT in each case. |# (define-integrable (interpreter-register:unbound?) (rtl:make-machine-register d0)) +(define-integrable (interpreter-value-register) + (rtl:make-offset (interpreter-regs-pointer) 2)) + (define (interpreter-value-register? expression) (and (rtl:offset? expression) (interpreter-regs-pointer? (rtl:offset-register expression)) (= 2 (rtl:offset-number expression)))) +(define-integrable (interpreter-environment-register) + (rtl:make-offset (interpreter-regs-pointer) 3)) + +(define (interpreter-environment-register? expression) + (and (rtl:offset? expression) + (interpreter-regs-pointer? (rtl:offset-register expression)) + (= 3 (rtl:offset-number expression)))) + (define-integrable (interpreter-free-pointer) (rtl:make-machine-register regnum:free-pointer)) -- 2.25.1