StgCmmExpr: Remove a redundant list
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Fri, 27 May 2016 14:47:50 +0000 (10:47 -0400)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Fri, 27 May 2016 14:48:21 +0000 (10:48 -0400)
compiler/codeGen/StgCmmExpr.hs

index 79b9cd0..a697ff6 100644 (file)
@@ -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