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

compiler.cfg.linear-scan.resolve: remove redundant vocabs from using list

db4
Slava Pestov 2009-06-28 22:58:35 -05:00
parent 6e72cf9711
commit 0f68ee3e9a
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,11 +1,10 @@
! Copyright (C) 2009 Slava Pestov, Doug Coleman. ! Copyright (C) 2009 Slava Pestov, Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs classes.parser classes.tuple USING: accessors arrays assocs classes.parser classes.tuple
combinators combinators.short-circuit compiler.cfg.instructions combinators combinators.short-circuit fry hashtables kernel locals
compiler.cfg.linear-scan.live-intervals compiler.cfg.liveness make math math.order namespaces sequences sets words parser histogram
fry hashtables histogram kernel locals make math math.order compiler.cfg.instructions compiler.cfg.linear-scan.live-intervals
namespaces parser prettyprint random sequences sets compiler.cfg.liveness ;
sorting.functor sorting.slots words ;
IN: compiler.cfg.linear-scan.resolve IN: compiler.cfg.linear-scan.resolve
<< <<
@ -134,10 +133,9 @@ M: register->register to-loc drop register ;
1 + temp-spill set ; 1 + temp-spill set ;
: set-tos/froms ( operations -- ) : set-tos/froms ( operations -- )
{ [ [ from-reg ] collect-values froms set ]
[ [ from-reg ] collect-values froms set ] [ [ to-reg ] collect-values tos set ]
[ [ to-reg ] collect-values tos set ] bi ;
} cleave ;
: trace-chains ( operations -- operations' ) : trace-chains ( operations -- operations' )
[ set-tos/froms ] [ set-tos/froms ]