From f14a61fac21985ea40fd3e57c29c0a8694394617 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 4 Jul 2009 16:30:16 -0500
Subject: [PATCH] Fix compiler.cfg.linear-scan.resolve test failure
---
basis/compiler/cfg/linear-scan/assignment/assignment.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/compiler/cfg/linear-scan/assignment/assignment.factor b/basis/compiler/cfg/linear-scan/assignment/assignment.factor
index e9f12ea668..6b7fdd8ce1 100644
--- 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 -- )