diff options
| author | dias@cs.tufts.edu <unknown> | 2009-12-18 19:54:30 +0000 |
|---|---|---|
| committer | dias@cs.tufts.edu <unknown> | 2009-12-18 19:54:30 +0000 |
| commit | d708100212551a1a4c3c05a7830c9092b4498e7c (patch) | |
| tree | 1d2207f1fda3af0ad7592277df2cbf9b3d5ca7a5 /compiler/codeGen | |
| parent | bfb346895846c5b79ecfb1e7503815146b8a4071 (diff) | |
| download | haskell-d708100212551a1a4c3c05a7830c9092b4498e7c.tar.gz | |
unused named variables
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index 28c74427b0..c9b67bd2ff 100644 --- 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. -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 @@ -313,7 +313,7 @@ cgCase scrut@(StgApp v []) bndr _ alt_type@(PrimAlt _) alts 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 |