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

convert ##compare with immediates to ##compare-imm

db4
Doug Coleman 2009-07-03 19:19:33 -05:00
parent 2c3b2a0b71
commit cae8fed16c
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
basis/compiler/cfg/value-numbering/rewrite/rewrite.factor
View File

@ -70,21 +70,25 @@ M: ##compare-imm-branch rewrite
dup rewrite-tagged-comparison? [ rewrite-tagged-comparison ] when
] when ;
: flip-comparison? ( insn -- ? )
dup cc>> cc= eq? [ src1>> vreg>expr constant-expr? ] [ drop f ] if ;
: flip-comparison ( insn -- insn' )
: >compare-imm ( insn swap? -- insn' )
[
{
[ dst>> ]
[ src1>> ]
[ src2>> ]
[ src1>> vreg>constant ] tri
cc= i \ ##compare-imm new-insn ;
[ cc>> ]
} cleave
] dip [ [ swap ] [ ] bi* ] when
[ vreg>constant ] dip
i \ ##compare-imm new-insn ; inline
M: ##compare rewrite
dup flip-comparison? [
flip-comparison
dup number-values
rewrite
] when ;
dup [ src1>> ] [ src2>> ] bi
[ vreg>expr constant-expr? ] bi@ 2array {
{ { f t } [ f >compare-imm ] }
{ { t f } [ t >compare-imm ] }
[ drop ]
} case ;
: rewrite-redundant-comparison? ( insn -- ? )
{