From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Thu, 13 Dec 2007 04:08:35 +0000 (+0000)
Subject: Allow more than 3 simplifier iterations to be run in phase 0
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1476e683b04147d9d505922951b6f70d752a6eb8

Allow more than 3 simplifier iterations to be run in phase 0

The number of iterations during the first run of phase 0 was erroneously
hardcoded to 3. It should be *at least* 3 (see comments in code) but can be
more.
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 199b17e..c8e999a 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -848,7 +848,7 @@ getCoreToDo dflags
 		-- Phase 0: allow all Ids to be inlined now
 		-- This gets foldr inlined before strictness analysis
 
-	   MaxSimplifierIterations 3
+	   MaxSimplifierIterations (max max_iter 3)
 		-- At least 3 iterations because otherwise we land up with
 		-- huge dead expressions because of an infelicity in the 
 		-- simpifier.