From 8b55f07eec8c2daffedb713e4a25ccb050fde32c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 21 May 1987 14:59:26 +0000 Subject: [PATCH] Temporary registers no longer have a type, and need not be handled specially for that. --- v7/src/compiler/rtlgen/rgrval.scm | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/v7/src/compiler/rtlgen/rgrval.scm b/v7/src/compiler/rtlgen/rgrval.scm index fdc35e0d7..57ae81273 100644 --- a/v7/src/compiler/rtlgen/rgrval.scm +++ b/v7/src/compiler/rtlgen/rgrval.scm @@ -1,9 +1,9 @@ d3 1 a4 1 -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.3 1987/05/18 16:15:19 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.4 1987/05/21 14:59:26 cph Exp $ #| -*-Scheme-*- Copyright (c) 1987 Massachusetts Institute of Technology -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.3 1987/05/18 16:15:19 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 1.4 1987/05/21 14:59:26 cph Exp $ Copyright (c) 1988, 1990 Massachusetts Institute of Technology @@ -82,13 +82,7 @@ promotional, or sales literature without prior written consent from (lambda (temporary) (if (vnode-known-constant? temporary) (generate/constant (vnode-known-value temporary)) - (let ((type (temporary-type temporary))) - (cond ((not type) - (expression-value/simple (rtl:make-fetch temporary))) - ((eq? type 'VALUE) - (expression-value/simple (rtl:make-fetch register:value))) - (else - (error "Illegal temporary reference" type))))))) + (expression-value/simple (rtl:make-fetch temporary))))) (define-rvalue-generator access-tag (lambda (*access) -- 2.25.1