Skip to content
Snippets Groups Projects
Commit 1eb1b36b authored by Alex Biehl's avatar Alex Biehl
Browse files

Push heap checks into case alternatives if possible for comparisons.

parent 015f6ecc
Branches master
No related tags found
No related merge requests found
Pipeline #434 failed
...@@ -502,7 +502,7 @@ cgCase scrut bndr alt_type alts ...@@ -502,7 +502,7 @@ cgCase scrut bndr alt_type alts
; let ret_bndrs = chooseReturnBndrs bndr alt_type alts ; let ret_bndrs = chooseReturnBndrs bndr alt_type alts
alt_regs = map (idToReg dflags) ret_bndrs alt_regs = map (idToReg dflags) ret_bndrs
; simple_scrut <- isSimpleScrut scrut alt_type ; simple_scrut <- isSimpleScrut scrut alt_type
; let do_gc | is_cmp_op scrut = False -- See Note [GC for conditionals] ; let do_gc -- | is_cmp_op scrut = False -- See Note [GC for conditionals]
| not simple_scrut = True | not simple_scrut = True
| isSingleton alts = False | isSingleton alts = False
| up_hp_usg > 0 = False | up_hp_usg > 0 = False
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment