From d2cf1d400e2ef64e824432aa350f3cf244ece2b3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 20 Mar 1998 13:59:05 +0000
Subject: [PATCH] [project @ 1998-03-20 13:59:05 by sof] isInlinableOcc: add
 case for DeadCode

---
 ghc/compiler/simplCore/BinderInfo.lhs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/simplCore/BinderInfo.lhs b/ghc/compiler/simplCore/BinderInfo.lhs
index 782f5141b9a2..6723bc67d103 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
-- 
GitLab