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

compiler.cfg.ssa.destruction.copies: factor out add-instructions combinator into compiler.cfg.utilities

db4
Slava Pestov 2009-08-02 08:20:50 -05:00
parent cff5976a0d
commit 8aa41672ca
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/compiler/cfg/ssa/destruction/copies/copies.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs hashtables fry kernel make namespaces sets USING: accessors assocs hashtables fry kernel make namespaces
sequences compiler.cfg.ssa.destruction.state compiler.cfg.parallel-copy ; sets sequences compiler.cfg.ssa.destruction.state
compiler.cfg.parallel-copy compiler.cfg.utilities ;
IN: compiler.cfg.ssa.destruction.copies IN: compiler.cfg.ssa.destruction.copies
ERROR: bad-copy ; ERROR: bad-copy ;
@ -20,9 +21,5 @@ ERROR: bad-copy ;
: insert-copies ( -- ) : insert-copies ( -- )
waiting get [ waiting get [
[ instructions>> building ] dip '[ '[ _ compute-copies parallel-copy ] add-instructions
building get pop
_ compute-copies parallel-copy
,
] with-variable
] assoc-each ; ] assoc-each ;

7
basis/compiler/cfg/utilities/utilities.factor
View File

@ -43,6 +43,13 @@ SYMBOL: visited
to predecessors>> [ dup from eq? [ drop bb ] when ] change-each to predecessors>> [ dup from eq? [ drop bb ] when ] change-each
from successors>> [ dup to eq? [ drop bb ] when ] change-each ; from successors>> [ dup to eq? [ drop bb ] when ] change-each ;
: add-instructions ( bb quot -- )
[ instructions>> building ] dip '[
building get pop
@
,
] with-variable ; inline
: <simple-block> ( insns -- bb ) : <simple-block> ( insns -- bb )
<basic-block> <basic-block>
swap >vector swap >vector