Commit ed48d133 authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Simplify, no functionality change

parent 6cb46421
......@@ -616,13 +616,12 @@ cgAlts gc_plan bndr (AlgAlt tycon) alts
branches' = [(tag+1,branch) | (tag,branch) <- branches]
emitSwitch tag_expr branches' mb_deflt 1 fam_sz
else -- No, get tag from info table
do dflags <- getDynFlags
let -- Note that ptr _always_ has tag 1
-- when the family size is big enough
untagged_ptr = cmmRegOffB bndr_reg (-1)
tag_expr = getConstrTag dflags (untagged_ptr)
emitSwitch tag_expr branches mb_deflt 0 (fam_sz - 1)
else -- No, get tag from info table
let -- Note that ptr _always_ has tag 1
-- when the family size is big enough
untagged_ptr = cmmRegOffB bndr_reg (-1)
tag_expr = getConstrTag dflags (untagged_ptr)
in emitSwitch tag_expr branches mb_deflt 0 (fam_sz - 1)
; return AssignedDirectly }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment