diff options
| author | simonmar <unknown> | 2002-03-15 13:57:32 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-03-15 13:57:32 +0000 |
| commit | b43da53d447a328d5be4f175dbbebad9abf690de (patch) | |
| tree | dc046d9b1b560ec1e1544cc16dd3762ad95d73dc /ghc/compiler/cprAnalysis | |
| parent | c228a7246225aafeaf22ee9bf0506d121b6227da (diff) | |
| download | haskell-b43da53d447a328d5be4f175dbbebad9abf690de.tar.gz | |
[project @ 2002-03-15 13:57:27 by simonmar]
Take the old strictness analyser out of #ifdef DEBUG and put it
instead in #ifdef OLD_STRICTNESS. DEBUG was getting a bit slow.
Diffstat (limited to 'ghc/compiler/cprAnalysis')
| -rw-r--r-- | ghc/compiler/cprAnalysis/CprAnalyse.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/cprAnalysis/CprAnalyse.lhs b/ghc/compiler/cprAnalysis/CprAnalyse.lhs index 17c4f58f1e..cbc28442ea 100644 --- a/ghc/compiler/cprAnalysis/CprAnalyse.lhs +++ b/ghc/compiler/cprAnalysis/CprAnalyse.lhs @@ -2,7 +2,7 @@ constructed product result} \begin{code} -#ifndef DEBUG +#ifndef OLD_STRICTNESS module CprAnalyse ( ) where #else @@ -311,5 +311,5 @@ getCprAbsVal v = case idCprInfo v of arity = idArity v -- Imported (non-nullary) constructors will have the CPR property -- in their IdInfo, so no need to look at their unfolding -#endif /* DEBUG */ +#endif /* OLD_STRICTNESS */ \end{code} |