diff options
| author | simonmar <unknown> | 1999-12-02 13:33:06 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-12-02 13:33:06 +0000 |
| commit | 68f77b1b56e1a837e2de517acbf479a21a37c296 (patch) | |
| tree | c4a43b792f81b496306be0cca1baa73957f39288 /ghc/compiler | |
| parent | e236b290b2ac0fdcea1f650e35294d86330a575e (diff) | |
| download | haskell-68f77b1b56e1a837e2de517acbf479a21a37c296.tar.gz | |
[project @ 1999-12-02 13:33:06 by simonmar]
The infamous "NOTE: simplifier still going..." message is now
protected by #ifdef DEBUG. It doesn't mean much to the average user,
and we tend to use DEBUG when hacking anyway.
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/simplCore/SimplCore.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs index 2356d85055..b78ebc4da1 100644 --- a/ghc/compiler/simplCore/SimplCore.lhs +++ b/ghc/compiler/simplCore/SimplCore.lhs @@ -288,11 +288,14 @@ simplifyPgm (imported_rule_ids, rule_lhs_fvs) -- Stop if we've run out of iterations if iteration_no == max_iterations then do { +#ifdef DEBUG if max_iterations > 2 then hPutStr stderr ("NOTE: Simplifier still going after " ++ show max_iterations ++ " iterations; bailing out.\n") - else return (); + else +#endif + return (); return ("Simplifier baled out", iteration_no, all_counts, binds') } |