From c84a35a4aaf6c66514a49bf6635508f05a7a878a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 21 Apr 1987 14:23:43 +0000 Subject: [PATCH] Solution to constant folding problem is overly conservative. Earlier change (which guaranteed that the combination-value became unknown when the operator or operands were) is sufficient. --- v7/src/compiler/rtlgen/rgcomb.scm | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm index cb05e5bca..420ef3104 100644 --- a/v7/src/compiler/rtlgen/rgcomb.scm +++ b/v7/src/compiler/rtlgen/rgcomb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.10 1987/04/18 00:18:35 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 1.11 1987/04/21 14:23:43 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -63,9 +63,6 @@ MIT in each case. |# (combination:subproblem combination offset rest-generator))) (define (combination:constant combination offset rest-generator) - ;; Can't do anything special here without side-effect analysis. - (combination:normal combination offset rest-generator) -#| (let ((value (combination-value combination)) (next (snode-next combination))) (cond ((value-temporary? value) @@ -78,9 +75,7 @@ MIT in each case. |# rvalue->sexpression)) ((value-ignore? value) (generate:next next offset rest-generator)) - (else (error "Unknown combination value" value)))) -|# - ) + (else (error "Unknown combination value" value))))) (define (combination:primitive combination offset rest-generator) (let ((open-coder -- 2.25.1