compiler.cfg.linear-scan.allocation: using slurp-heap

2014-12-15 20:48:34 +01:00 · 2014-12-15 20:48:34 +01:00 · d6c1c075ff
parent 84f8f26ce8
commit d6c1c075ff
1 changed files with 1 additions and 4 deletions
--- a/basis/compiler/cfg/linear-scan/allocation/allocation.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/allocation.factor
@ -59,11 +59,8 @@ M: sync-point handle ( sync-point -- )
    [ n>> [ deactivate-intervals ] [ activate-intervals ] bi ]
    [ handle-sync-point ] bi ;

-! TODO: use slurp-heap
 : (allocate-registers) ( unhandled-min-heap -- )
-    dup heap-empty? [ drop ] [
-        [ heap-pop drop handle ] keep (allocate-registers)
-    ] if ;
+    [ drop handle ] slurp-heap ;

 : finish-allocation ( -- )
    active-intervals inactive-intervals