Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : newcg
http://hackage.haskell.org/trac/ghc/changeset/b9d3e608a67af2bec0fd201d789b985b4aff1cd4 >--------------------------------------------------------------- commit b9d3e608a67af2bec0fd201d789b985b4aff1cd4 Author: Simon Marlow <[email protected]> Date: Wed Feb 8 15:47:28 2012 +0000 fix a bug >--------------------------------------------------------------- compiler/codeGen/StgCmmUtils.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index 391dc16..16f741e 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -752,8 +752,8 @@ mk_lit_switch scrut deflt [(lit,blk)] ne = if isFloatType cmm_ty then MO_F_Ne rep else MO_Ne rep mk_lit_switch scrut deflt_blk_id branches - = do hi_blk <- mk_lit_switch scrut deflt_blk_id lo_branches - lo_blk <- mk_lit_switch scrut deflt_blk_id hi_branches + = do lo_blk <- mk_lit_switch scrut deflt_blk_id lo_branches + hi_blk <- mk_lit_switch scrut deflt_blk_id hi_branches mkCmmIfThenElse cond lo_blk hi_blk where n_branches = length branches _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
