From: simonmar <unknown>
Date: Thu, 2 Aug 2001 16:31:13 +0000 (+0000)
Subject: [project @ 2001-08-02 16:30:41 by simonmar]
X-Git-Tag: Approximately_9120_patches~1374
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6487214f9cdec7ba8d7685fa2ad78591315dc7e4;p=ghc-hetmet.git

[project @ 2001-08-02 16:30:41 by simonmar]
Turn the strictness analyser back on again.
---

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 719ca5d..f45105f 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.51 2001/07/31 10:06:25 sewardj Exp $
+-- $Id: DriverState.hs,v 1.52 2001/08/02 16:30:41 simonmar Exp $
 --
 -- Settings for the driver
 --
@@ -143,7 +143,7 @@ GLOBAL_VAR(v_minus_o2_for_C,            False, Bool)
 GLOBAL_VAR(v_MaxSimplifierIterations,   4,     Int)
 GLOBAL_VAR(v_StgStats,                  False, Bool)
 GLOBAL_VAR(v_UsageSPInf,  	     	False, Bool)  -- Off by default
-GLOBAL_VAR(v_Strictness,  		False {-True-},  Bool)
+GLOBAL_VAR(v_Strictness,  		True,  Bool)
 GLOBAL_VAR(v_CPR,         		True,  Bool)
 GLOBAL_VAR(v_CSE,         		True,  Bool)
 
diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index ec5d6e2..f7cef99 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -57,8 +57,6 @@ instance Outputable TopLevelFlag where
 \begin{code}
 dmdAnalPgm :: DynFlags -> [CoreBind] -> IO [CoreBind]
 dmdAnalPgm dflags binds
-  = panic "dmdAnalPgm called"
-dmdAnalPgm dflags binds
   = do {
 	showPass dflags "Demand analysis" ;
 	let { binds_plus_dmds = do_prog binds ;