Fix compiler.cfg.linear-scan.resolve test failure

2009-07-04 16:30:16 -05:00 · 2009-07-04 16:30:16 -05:00 · f14a61fac2
parent c0f1b2205a
commit f14a61fac2
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/cfg/linear-scan/assignment/assignment.factor
+++ b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
@ -171,7 +171,7 @@ M: ##gc assign-registers-in-insn
 M: insn assign-registers-in-insn drop ;

 : begin-block ( bb -- )
-    dup block-from prepare-insn
+    dup block-from 1 - prepare-insn
    [ block-from compute-live-values ] keep register-live-ins get set-at ;

 : end-block ( bb -- )