summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
564c308)
isInlinableOcc: add case for DeadCode
isInlinableOcc whnf small (OneOcc _ dup_danger _ n_alts _)
= (whnf || (case dup_danger of {NoDupDanger -> True; other -> False}))
&& (small || n_alts <= 1)
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
isDeadOcc :: BinderInfo -> Bool
isDeadOcc DeadCode = True