diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-26 12:04:36 -0400 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-26 14:41:29 -0400 |
| commit | 5b8bec25305eee2dc0ad9ec2cc385f2055abc892 (patch) | |
| tree | d03212222a3929867ecf68214dd2bbfd5aab419f /compiler/codeGen | |
| parent | e9e61f18a548b70693f4ccd245bc56335c94b498 (diff) | |
| download | haskell-5b8bec25305eee2dc0ad9ec2cc385f2055abc892.tar.gz | |
StgCmmExpr: Fix a duplication
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index a472191262..79b9cd03b2 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -582,7 +582,6 @@ cgAlts gc_plan bndr (AlgAlt tycon) alts tag_expr = cmmConstrTag1 dflags (CmmReg bndr_reg) branches' = [(tag+1,branch) | (tag,branch) <- branches] emitSwitch tag_expr branches' mb_deflt 1 fam_sz - return AssignedDirectly else -- No, get tag from info table do dflags <- getDynFlags @@ -591,7 +590,8 @@ cgAlts gc_plan bndr (AlgAlt tycon) alts untagged_ptr = cmmRegOffB bndr_reg (-1) tag_expr = getConstrTag dflags (untagged_ptr) emitSwitch tag_expr branches mb_deflt 0 (fam_sz - 1) - return AssignedDirectly } + + ; return AssignedDirectly } cgAlts _ _ _ _ = panic "cgAlts" -- UbxTupAlt and PolyAlt have only one alternative |