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

compiler.cfg.linear-scan.allocation.state: don't use slot.syntax.

db4
John Benediktsson 2014-12-15 13:10:59 -08:00
parent aee55f1b83
commit 2a893a110a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,10 +1,10 @@
! Copyright (C) 2009, 2010 Slava Pestov. ! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays accessors assocs combinators cpu.architecture fry USING: accessors arrays assocs combinators compiler.cfg
heaps kernel math math.order namespaces layouts sequences vectors
compiler.cfg compiler.cfg.registers
compiler.cfg.instructions compiler.cfg.instructions
compiler.cfg.linear-scan.live-intervals linked-assocs slots.syntax ; compiler.cfg.linear-scan.live-intervals compiler.cfg.registers
cpu.architecture fry heaps kernel layouts linked-assocs math
math.order namespaces sequences ;
FROM: assocs => change-at ; FROM: assocs => change-at ;
IN: compiler.cfg.linear-scan.allocation.state IN: compiler.cfg.linear-scan.allocation.state
@ -25,13 +25,13 @@ SYMBOL: progress
SYMBOL: unhandled-min-heap SYMBOL: unhandled-min-heap
: live-interval-key ( live-interval -- key ) : live-interval-key ( live-interval -- key )
get{ start end } ; [ start>> ] [ end>> ] bi 2array ;
: sync-point-key ( sync-point -- key ) : sync-point-key ( sync-point -- key )
n>> 1/0.0 2array ; n>> 1/0. 2array ;
: zip-keyed ( seq quot: ( elt -- key ) -- assoc ) : zip-keyed ( seq quot: ( elt -- key ) -- alist )
dupd map swap zip ; inline [ keep ] curry { } map>assoc ; inline
: >unhandled-min-heap ( live-intervals sync-points -- min-heap ) : >unhandled-min-heap ( live-intervals sync-points -- min-heap )
[ [ live-interval-key ] zip-keyed ] [ [ live-interval-key ] zip-keyed ]