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

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

db4
Slava Pestov 2009-07-04 16:30:16 -05:00
parent c0f1b2205a
commit f14a61fac2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/linear-scan/assignment/assignment.factor
View File

@ -171,7 +171,7 @@ M: ##gc assign-registers-in-insn
M: insn assign-registers-in-insn drop ; M: insn assign-registers-in-insn drop ;
: begin-block ( bb -- ) : 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 ; [ block-from compute-live-values ] keep register-live-ins get set-at ;
: end-block ( bb -- ) : end-block ( bb -- )