diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-27 10:47:50 -0400 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-27 10:48:21 -0400 |
| commit | 59250dce325a6115c8419cb8578025f0d76184d2 (patch) | |
| tree | 71ad07ab3022645b14ffa713ddce2e8785bd7c24 /compiler/codeGen | |
| parent | 72fd407e15c7cc1d1ad671d6b4cd184a40ea2a61 (diff) | |
| download | haskell-59250dce325a6115c8419cb8578025f0d76184d2.tar.gz | |
StgCmmExpr: Remove a redundant list
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index 79b9cd03b2..a697ff66c3 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -404,7 +404,7 @@ cgCase (StgApp v []) bndr alt_type@(PrimAlt _) alts ; v_info <- getCgIdInfo v ; emitAssign (CmmLocal (idToReg dflags (NonVoid bndr))) (idInfoToAmode v_info) - ; bindArgsToRegs [NonVoid bndr] + ; bindArgToReg (NonVoid bndr) ; cgAlts (NoGcInAlts,AssignedDirectly) (NonVoid bndr) alt_type alts } where reps_compatible = idPrimRep v == idPrimRep bndr |