compiler.cfg.linear-scan.allocation: using slurp-heap
parent
84f8f26ce8
commit
d6c1c075ff
|
@ -59,11 +59,8 @@ M: sync-point handle ( sync-point -- )
|
||||||
[ n>> [ deactivate-intervals ] [ activate-intervals ] bi ]
|
[ n>> [ deactivate-intervals ] [ activate-intervals ] bi ]
|
||||||
[ handle-sync-point ] bi ;
|
[ handle-sync-point ] bi ;
|
||||||
|
|
||||||
! TODO: use slurp-heap
|
|
||||||
: (allocate-registers) ( unhandled-min-heap -- )
|
: (allocate-registers) ( unhandled-min-heap -- )
|
||||||
dup heap-empty? [ drop ] [
|
[ drop handle ] slurp-heap ;
|
||||||
[ heap-pop drop handle ] keep (allocate-registers)
|
|
||||||
] if ;
|
|
||||||
|
|
||||||
: finish-allocation ( -- )
|
: finish-allocation ( -- )
|
||||||
active-intervals inactive-intervals
|
active-intervals inactive-intervals
|
||||||
|
|
Loading…
Reference in New Issue