From: simonpj <unknown>
Date: Tue, 30 Jan 2001 10:32:45 +0000 (+0000)
Subject: [project @ 2001-01-30 10:32:45 by simonpj]
X-Git-Tag: Approximately_9120_patches~2779
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6300924b9081e4670a206fda0e629d2dc217facc;p=ghc-hetmet.git

[project @ 2001-01-30 10:32:45 by simonpj]
Fix utter bogon in OccurAnal
---

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 7fa1553..eaa3383 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -904,7 +904,8 @@ orOccInfo IAmDead info2 = info2
 orOccInfo info1 IAmDead = info1
 orOccInfo (OneOcc in_lam1 one_branch1)
 	  (OneOcc in_lam2 one_branch2)
-  = OneOcc (in_lam1 || in_lam2) (one_branch1 && one_branch2)
+  = OneOcc (in_lam1 || in_lam2)
+	   False	-- False, because it occurs in both branches
 
 orOccInfo info1 info2 = NoOccInfo
 \end{code}