projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
564c308
)
[project @ 1998-03-20 13:59:05 by sof]
author
sof
<unknown>
Fri, 20 Mar 1998 13:59:05 +0000
(13:59 +0000)
committer
sof
<unknown>
Fri, 20 Mar 1998 13:59:05 +0000
(13:59 +0000)
isInlinableOcc: add case for DeadCode
ghc/compiler/simplCore/BinderInfo.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/simplCore/BinderInfo.lhs
b/ghc/compiler/simplCore/BinderInfo.lhs
index
782f514
..
6723bc6
100644
(file)
--- 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