compiler.cfg.linear-scan.assignment: correctly compute live registers at GC check points

db4
Slava Pestov 2009-06-20 15:33:12 -05:00
parent a598030fd7
commit c1839200dd
1 changed files with 3 additions and 1 deletions

View File

@ -102,7 +102,9 @@ M: vreg-insn assign-registers-in-insn
>>regs drop ;
: compute-live-registers ( insn -- regs )
active-intervals register-mapping ;
[ active-intervals ] [ temp-vregs ] bi
'[ vreg>> _ memq? not ] filter
register-mapping ;
: compute-live-spill-slots ( -- spill-slots )
spill-slots get values [ values ] map concat