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:
bfb3468
)
unused named variables
author
dias@cs.tufts.edu
<unknown>
Fri, 18 Dec 2009 19:54:30 +0000
(19:54 +0000)
committer
dias@cs.tufts.edu
<unknown>
Fri, 18 Dec 2009 19:54:30 +0000
(19:54 +0000)
compiler/codeGen/StgCmmExpr.hs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/StgCmmExpr.hs
b/compiler/codeGen/StgCmmExpr.hs
index
28c7442
..
c9b67bd
100644
(file)
--- a/
compiler/codeGen/StgCmmExpr.hs
+++ b/
compiler/codeGen/StgCmmExpr.hs
@@
-301,7
+301,7
@@
cgCase (OpApp ) bndr srt AlgAlt [(DataAlt flase, a2]
-- code that enters the HValue, then we'll get a runtime panic, because
-- the HValue really is a MutVar#. The types are compatible though,
-- so we can just generate an assignment.
-- code that enters the HValue, then we'll get a runtime panic, because
-- the HValue really is a MutVar#. The types are compatible though,
-- so we can just generate an assignment.
-cgCase scrut@(StgApp v []) bndr _ alt_type@(PrimAlt _) alts
+cgCase (StgApp v []) bndr _ alt_type@(PrimAlt _) alts
| isUnLiftedType (idType v)
|| reps_compatible
= -- assignment instruction suffices for unlifted types
| isUnLiftedType (idType v)
|| reps_compatible
= -- assignment instruction suffices for unlifted types
@@
-313,7
+313,7
@@
cgCase scrut@(StgApp v []) bndr _ alt_type@(PrimAlt _) alts
where
reps_compatible = idCgRep v == idCgRep bndr
where
reps_compatible = idCgRep v == idCgRep bndr
-cgCase scrut@(StgApp v []) bndr _ (PrimAlt _) _
+cgCase scrut@(StgApp v []) _ _ (PrimAlt _) _
| lifted
= -- fail at run-time, not compile-time
do { mb_cc <- maybeSaveCostCentre True
| lifted
= -- fail at run-time, not compile-time
do { mb_cc <- maybeSaveCostCentre True