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.

diff --git a/v8/src/compiler/midend/simplify.scm b/v8/src/compiler/midend/simplify.scm
index c9d9cc94307b9e67db0ab3c746a8cffa062ee839..6594dfd8e67c55faf547066c2257d5bc10c9e768 100644 (file)
--- 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))