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

fix ... in compiler.cfg.linearization

db4
Joe Groff 2010-03-05 14:27:58 -08:00
parent 4892bf1d47
commit af57d4dfa9
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/linearization/linearization.factor
View File

@ -42,7 +42,7 @@ M: ##branch linearize-insn
: successors ( bb -- first second ) successors>> first2 ; inline : successors ( bb -- first second ) successors>> first2 ; inline
:: conditional ( bb insn n conditional-quot negate-cc-quot -- bb successor label ... ) :: conditional ( bb insn n conditional-quot negate-cc-quot -- bb successor label etc... )
bb insn bb insn
conditional-quot conditional-quot
[ drop dup successors>> second useless-branch? ] 2bi [ drop dup successors>> second useless-branch? ] 2bi