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

compiler.cfg.value-numbering.rewrite: disable ##compare optimizations for now

db4
Slava Pestov 2009-07-04 03:26:37 -05:00
parent fb488025aa
commit c0f1b2205a
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,13 +77,13 @@ M: ##compare-imm-branch rewrite
insn cc>> swap? [ swap-cc ] when insn cc>> swap? [ swap-cc ] when
i \ ##compare-imm new-insn ; inline i \ ##compare-imm new-insn ; inline
M: ##compare rewrite ! M: ##compare rewrite
dup [ src1>> ] [ src2>> ] bi ! dup [ src1>> ] [ src2>> ] bi
[ vreg>expr constant-expr? ] bi@ 2array { ! [ vreg>expr constant-expr? ] bi@ 2array {
{ { f t } [ f >compare-imm ] } ! { { f t } [ f >compare-imm ] }
{ { t f } [ t >compare-imm ] } ! { { t f } [ t >compare-imm ] }
[ drop ] ! [ drop ]
} case ; ! } case ;
:: >compare-imm-branch ( insn swap? -- insn' ) :: >compare-imm-branch ( insn swap? -- insn' )
insn src1>> insn src1>>
@ -91,13 +91,13 @@ M: ##compare rewrite
insn cc>> swap? [ swap-cc ] when insn cc>> swap? [ swap-cc ] when
\ ##compare-imm-branch new-insn ; inline \ ##compare-imm-branch new-insn ; inline
M: ##compare-branch rewrite ! M: ##compare-branch rewrite
dup [ src1>> ] [ src2>> ] bi ! dup [ src1>> ] [ src2>> ] bi
[ vreg>expr constant-expr? ] bi@ 2array { ! [ vreg>expr constant-expr? ] bi@ 2array {
{ { f t } [ f >compare-imm-branch ] } ! { { f t } [ f >compare-imm-branch ] }
{ { t f } [ t >compare-imm-branch ] } ! { { t f } [ t >compare-imm-branch ] }
[ drop ] ! [ drop ]
} case ; ! } case ;
: rewrite-redundant-comparison? ( insn -- ? ) : rewrite-redundant-comparison? ( insn -- ? )
{ {