From: simonmar <unknown>
Date: Thu, 2 Dec 1999 13:33:06 +0000 (+0000)
Subject: [project @ 1999-12-02 13:33:06 by simonmar]
X-Git-Tag: Approximately_9120_patches~5447
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=68f77b1b56e1a837e2de517acbf479a21a37c296;p=ghc-hetmet.git

[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.
---

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 2356d85..b78ebc4 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')
 		}