compiler.cfg.linear-scan.assignment: correctly compute live registers at GC check points
parent
a598030fd7
commit
c1839200dd
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue