steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.cfg.linear-scan.allocation.state: simplify init-unhandled.

db4
John Benediktsson 2014-12-01 22:18:15 -08:00
parent 8f0c563268
commit ad9d44aa2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/linear-scan/allocation/state/state.factor
View File

@ -153,8 +153,8 @@ SYMBOL: spill-slots
-1 progress set ; -1 progress set ;
: init-unhandled ( live-intervals sync-points -- ) : init-unhandled ( live-intervals sync-points -- )
[ [ [ start>> ] keep ] { } map>assoc unhandled-intervals get heap-push-all ] [ unhandled-intervals get '[ dup start>> _ heap-push ] each ]
[ [ [ n>> ] keep ] { } map>assoc unhandled-sync-points get heap-push-all ] [ unhandled-sync-points get '[ dup n>> _ heap-push ] each ]
bi* ; bi* ;
! A utility used by register-status and spill-status words ! A utility used by register-status and spill-status words