diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-02-08 15:47:28 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-02-08 15:51:06 +0000 |
| commit | b9d3e608a67af2bec0fd201d789b985b4aff1cd4 (patch) | |
| tree | 4f697fe84231c315ca2b1383c94b274b9a9d7948 /compiler | |
| parent | 76999b605423f530ec17562d772eda1c1672db53 (diff) | |
| download | haskell-b9d3e608a67af2bec0fd201d789b985b4aff1cd4.tar.gz | |
fix a bug
Diffstat (limited to 'compiler')
| -rw-r--r-- | 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 391dc163f1..16f741e929 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 |