[commit: ghc] master: StgCmmUtils.emitMultiAssign: Make assertion msg more helpful (7e4f3dc)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7e4f3dc26fa984a00e48955b56295a7cf78682c4/ghc

>---------------------------------------------------------------

commit 7e4f3dc26fa984a00e48955b56295a7cf78682c4
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Mon May 30 10:39:59 2016 -0400

    StgCmmUtils.emitMultiAssign: Make assertion msg more helpful


>---------------------------------------------------------------

7e4f3dc26fa984a00e48955b56295a7cf78682c4
 compiler/codeGen/StgCmmUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs
index a98ce73..86c03ac 100644
--- a/compiler/codeGen/StgCmmUtils.hs
+++ b/compiler/codeGen/StgCmmUtils.hs
@@ -396,7 +396,7 @@ emitMultiAssign []    []    = return ()
 emitMultiAssign [reg] [rhs] = emitAssign (CmmLocal reg) rhs
 emitMultiAssign regs rhss   = do
   dflags <- getDynFlags
-  ASSERT( equalLength regs rhss )
+  ASSERT2( equalLength regs rhss, ppr regs $$ ppr rhss )
     unscramble dflags ([1..] `zip` (regs `zip` rhss))
 
 unscramble :: DynFlags -> [Vrtx] -> FCode ()