From: sof <unknown>
Date: Fri, 26 Jun 1998 12:08:28 +0000 (+0000)
Subject: [project @ 1998-06-26 12:08:28 by sof]
X-Git-Tag: Approx_2487_patches~561
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1dd929d535c1778fb5f1181174352bcd3898af0b;p=ghc-hetmet.git

[project @ 1998-06-26 12:08:28 by sof]
simplRecursiveGroup: accidentally commented out single occurrence optim
---

diff --git a/ghc/compiler/simplCore/Simplify.lhs b/ghc/compiler/simplCore/Simplify.lhs
index 95afb62..5b0be27 100644
--- a/ghc/compiler/simplCore/Simplify.lhs
+++ b/ghc/compiler/simplCore/Simplify.lhs
@@ -1252,7 +1252,6 @@ simplRecursiveGroup env new_ids []
   = returnSmpl ([], env)
 
 simplRecursiveGroup env (new_id : new_ids) ((binder, rhs) : pairs)
-{-
   | inlineUnconditionally binder
   = 	-- Single occurrence, so drop binding and extend env with the inlining
 	-- This is a little delicate, because what if the unique occurrence
@@ -1266,7 +1265,6 @@ simplRecursiveGroup env (new_id : new_ids) ((binder, rhs) : pairs)
 	new_env = bindIdToExpr env binder rhs
     in
     simplRecursiveGroup new_env new_ids pairs
--}
   | otherwise
   = simplRhsExpr env binder rhs new_id		`thenSmpl` \ (new_rhs, arity) ->
     let