From 8742faaac55eb183c8dfb5b62e4c28f39cf1da3b Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sun, 26 Feb 1995 14:59:03 +0000 Subject: [PATCH] Removed open-coding of tiny procedures comprising only known operators. It is a bad idea to do this early as hand coded loop invariants get substituted back into loops. This should be added back but with a parameter, so we can have aggressive inlining if the user wants it, or if there is a declaration. --- v8/src/compiler/midend/simplify.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/v8/src/compiler/midend/simplify.scm b/v8/src/compiler/midend/simplify.scm index c9d9cc943..6594dfd8e 100644 --- a/v8/src/compiler/midend/simplify.scm +++ b/v8/src/compiler/midend/simplify.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: simplify.scm,v 1.6 1995/02/15 21:54:14 adams Exp $ +$Id: simplify.scm,v 1.7 1995/02/26 14:59:03 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -463,13 +463,13 @@ MIT in each case. |# (let ((body (lambda/body value))) (or (QUOTE/? body) (LOOKUP/? body) - (and (CALL/? body) - (QUOTE/? (call/operator body)) - (known-operator? (quote/text (call/operator body))) - (for-all? (call/cont-and-operands body) - (lambda (element) - (or (QUOTE/? element) - (LOOKUP/? element))))) + ;;(and (CALL/? body) + ;; (QUOTE/? (call/operator body)) + ;; (known-operator? (quote/text (call/operator body))) + ;; (for-all? (call/cont-and-operands body) + ;; (lambda (element) + ;; (or (QUOTE/? element) + ;; (LOOKUP/? element))))) (and *after-cps-conversion?* (CALL/? body) (<= (length (call/cont-and-operands body)) -- 2.25.1