From: simonpj <unknown>
Date: Tue, 24 Jul 2001 16:46:51 +0000 (+0000)
Subject: [project @ 2001-07-24 16:46:51 by simonpj]
X-Git-Tag: Approximately_9120_patches~1422
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ff868a84e540419ba281640cfcae306895080fcc;p=ghc-hetmet.git

[project @ 2001-07-24 16:46:51 by simonpj]
Print a bit more info in the dmdFix loop
---

diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index d6bdd0e..035b115 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -268,7 +268,8 @@ dmdFix top_lvl sigs pairs
 		-- processing the RHSs with sigs (= sigs'), whereas pairs 
 		-- is the result of processing the RHSs with the *previous* 
 		-- iteration of sigs.
-      | n >= 5		    = pprTrace "dmdFix" (ppr n <+> ppr pairs)   (loop (n+1) sigs' pairs')
+      | n >= 5		    = pprTrace "dmdFix" (ppr n <+> (ppr [(id,lookup sigs id, lookup sigs' id) | (id,_) <- pairs] $$ ppr pairs))
+			      (loop (n+1) sigs' pairs')
       | otherwise	    = {- pprTrace "dmdFixLoop" (ppr id_sigs) -} (loop (n+1) sigs' pairs')
       where
 		-- Use the new signature to do the next pair