From: simonmar <unknown>
Date: Thu, 26 Jul 2001 09:54:39 +0000 (+0000)
Subject: [project @ 2001-07-26 09:54:39 by simonmar]
X-Git-Tag: Approximately_9120_patches~1403
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d8f550509fe8eaff29424e19250c0187d6e9c3b7;p=ghc-hetmet.git

[project @ 2001-07-26 09:54:39 by simonmar]
Make the panic case in evalAbsence into another "TELL SIMON" trace.
---

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 8cab167..14bb2df 100644
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -326,7 +326,9 @@ evalAbsence (WwUnpack _ demand_info) val
 	   | length vals /= length demand_info -> pprTrace "TELL SIMON: evalAbsence" (ppr demand_info $$ ppr val)
 						  True
 	   | otherwise -> or (zipWithEqual "evalAbsence" evalAbsence demand_info vals)
-	_	       -> panic "evalAbsence: other"
+	_	       -> pprTrace "TELL SIMON: evalAbsence" 
+				(ppr demand_info $$ ppr val)
+			  True
 
 evalAbsence other val = anyBot val
   -- The demand is conservative; even "Lazy" *might* evaluate the