StgCmmExpr: Remove a redundant list

59250dce · Ömer Sinan Ağacan · 72fd407e · 59250dce
Commit 59250dce authored May 27, 2016 by Ömer Sinan Ağacan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/codeGen/StgCmmExpr.hs compiler/codeGen/StgCmmExpr.hs +1 -1

No files found.
--- 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