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

Working on fixing scheduling

db4
Daniel Ehrenberg 2010-02-10 22:36:26 -06:00
parent 04946dcddd
commit 6fe9aa50f7
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/compiler/cfg/dependence/dependence.factor
View File

@ -148,6 +148,14 @@ DEFER: follow-tree
[ [ >>parent drop ] with each ] [ [ >>parent drop ] with each ]
[ >>children drop ] 2bi ; [ >>children drop ] 2bi ;
: attach-parent ( node -- )
drop ;
: make-trees ( -- trees )
nodes get
[ [ attach-parent ] each ]
[ [ parent>> not ] filter ] bi ;
ERROR: node-missing-parent trees nodes ; ERROR: node-missing-parent trees nodes ;
ERROR: node-missing-children trees nodes ; ERROR: node-missing-children trees nodes ;
@ -168,13 +176,8 @@ ERROR: node-missing-children trees nodes ;
: verify-trees ( trees -- trees ) : verify-trees ( trees -- trees )
verify-parents verify-children ; verify-parents verify-children ;
: make-trees ( -- trees )
[
roots get [ dup , follow-tree ] each
] { } make verify-trees ;
: build-fan-in-trees ( -- ) : build-fan-in-trees ( -- )
make-trees [ make-trees verify-trees [
-1/0. >>parent-index -1/0. >>parent-index
calculate-registers drop calculate-registers drop
] each ; ] each ;