Using original instruction order as a tiebreaker in scheduling

2010-02-11 23:12:17 -06:00 · 2010-02-11 23:12:17 -06:00 · 4f7fd41cf2
parent 5a3d0fb883
commit 4f7fd41cf2
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/cfg/scheduling/scheduling.factor
+++ b/basis/compiler/cfg/scheduling/scheduling.factor
@ -31,7 +31,7 @@ ERROR: bad-delete-at key assoc ;
    [ [ ready? ] filter roots get push-all ] bi ;

 : score ( insn -- n )
-    [ parent-index>> ] [ registers>> neg ] bi 2array ;
+    [ parent-index>> ] [ registers>> neg ] [ insn>> insn#>> ] tri 3array ;

 : pull-out-nth ( n seq -- elt )
    [ nth ] [ remove-nth! drop ] 2bi ;