[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplCase.lhs

diff --git a/ghc/compiler/simplCore/SimplCase.lhs b/ghc/compiler/simplCore/SimplCase.lhs
index ed57249..e9f76a4 100644 (file)
--- a/ghc/compiler/simplCore/SimplCase.lhs
+++ b/ghc/compiler/simplCore/SimplCase.lhs
@@ -54,7 +54,8 @@ simplCase :: SimplEnv
          -> SmplM OutExpr
 
 simplCase env (CoLet bind body) alts rhs_c result_ty
-  =    -- Float the let outside the case scrutinee
+  | not (switchIsSet env SimplNoLetFromCase)
+  =    -- Float the let outside the case scrutinee (if not disabled by flag)
     tick LetFloatFromCase              `thenSmpl_`
     simplBind env bind (\env -> simplCase env body alts rhs_c result_ty) result_ty
 \end{code}