From: sof <unknown>
Date: Fri, 20 Mar 1998 13:59:05 +0000 (+0000)
Subject: [project @ 1998-03-20 13:59:05 by sof]
X-Git-Tag: Approx_2487_patches~844
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d2cf1d400e2ef64e824432aa350f3cf244ece2b3;p=ghc-hetmet.git

[project @ 1998-03-20 13:59:05 by sof]
isInlinableOcc: add case for DeadCode
---

diff --git a/ghc/compiler/simplCore/BinderInfo.lhs b/ghc/compiler/simplCore/BinderInfo.lhs
index 782f514..6723bc6 100644
--- a/ghc/compiler/simplCore/BinderInfo.lhs
+++ b/ghc/compiler/simplCore/BinderInfo.lhs
@@ -135,6 +135,7 @@ isInlinableOcc whnf small (ManyOcc _)
 isInlinableOcc whnf small (OneOcc _ dup_danger _ n_alts _)
   =  (whnf || (case dup_danger of {NoDupDanger -> True; other -> False}))
   && (small || n_alts <= 1)
+isInlinableOcc _ _ DeadCode = False
 
 isDeadOcc :: BinderInfo -> Bool
 isDeadOcc DeadCode = True