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

i had comisd/ucomisd backwards on x86

db4
Joe Groff 2009-09-04 12:30:30 -05:00
parent 382e1d5b0e
commit d47d747ebc
1 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
basis/cpu/x86/x86.factor
View File

@ -548,20 +548,20 @@ M: x86 %compare-imm ( dst temp cc src1 src2 -- )
M:: x86 %compare-float ( dst temp cc src1 src2 -- ) M:: x86 %compare-float ( dst temp cc src1 src2 -- )
cc { cc {
{ cc< [ src2 src1 UCOMISD dst temp \ CMOVA %boolean ] } { cc< [ src2 src1 COMISD dst temp \ CMOVA %boolean ] }
{ cc<= [ src2 src1 UCOMISD dst temp \ CMOVAE %boolean ] } { cc<= [ src2 src1 COMISD dst temp \ CMOVAE %boolean ] }
{ cc> [ src1 src2 UCOMISD dst temp \ CMOVA %boolean ] } { cc> [ src1 src2 COMISD dst temp \ CMOVA %boolean ] }
{ cc>= [ src1 src2 UCOMISD dst temp \ CMOVAE %boolean ] } { cc>= [ src1 src2 COMISD dst temp \ CMOVAE %boolean ] }
{ cc= [ src1 src2 COMISD dst temp \ %cmov-float= %boolean ] } { cc= [ src1 src2 UCOMISD dst temp \ %cmov-float= %boolean ] }
{ cc<> [ src1 src2 UCOMISD dst temp \ CMOVNE %boolean ] } { cc<> [ src1 src2 COMISD dst temp \ CMOVNE %boolean ] }
{ cc<>= [ src1 src2 UCOMISD dst temp \ CMOVNP %boolean ] } { cc<>= [ src1 src2 COMISD dst temp \ CMOVNP %boolean ] }
{ cc/< [ src2 src1 COMISD dst temp \ CMOVBE %boolean ] } { cc/< [ src2 src1 UCOMISD dst temp \ CMOVBE %boolean ] }
{ cc/<= [ src2 src1 COMISD dst temp \ CMOVB %boolean ] } { cc/<= [ src2 src1 UCOMISD dst temp \ CMOVB %boolean ] }
{ cc/> [ src1 src2 COMISD dst temp \ CMOVBE %boolean ] } { cc/> [ src1 src2 UCOMISD dst temp \ CMOVBE %boolean ] }
{ cc/>= [ src1 src2 COMISD dst temp \ CMOVB %boolean ] } { cc/>= [ src1 src2 UCOMISD dst temp \ CMOVB %boolean ] }
{ cc/= [ src1 src2 COMISD dst temp \ %cmov-float/= %boolean ] } { cc/= [ src1 src2 UCOMISD dst temp \ %cmov-float/= %boolean ] }
{ cc/<> [ src1 src2 COMISD dst temp \ CMOVE %boolean ] } { cc/<> [ src1 src2 UCOMISD dst temp \ CMOVE %boolean ] }
{ cc/<>= [ src1 src2 COMISD dst temp \ CMOVP %boolean ] } { cc/<>= [ src1 src2 UCOMISD dst temp \ CMOVP %boolean ] }
} case ; } case ;
M:: x86 %compare-branch ( label cc src1 src2 -- ) M:: x86 %compare-branch ( label cc src1 src2 -- )
@ -591,20 +591,20 @@ M: x86 %compare-imm-branch ( label src1 src2 cc -- )
M:: x86 %compare-float-branch ( label cc src1 src2 -- ) M:: x86 %compare-float-branch ( label cc src1 src2 -- )
cc { cc {
{ cc< [ src2 src1 UCOMISD label JA ] } { cc< [ src2 src1 COMISD label JA ] }
{ cc<= [ src2 src1 UCOMISD label JAE ] } { cc<= [ src2 src1 COMISD label JAE ] }
{ cc> [ src1 src2 UCOMISD label JA ] } { cc> [ src1 src2 COMISD label JA ] }
{ cc>= [ src1 src2 UCOMISD label JAE ] } { cc>= [ src1 src2 COMISD label JAE ] }
{ cc= [ src1 src2 COMISD label %jump-float= ] } { cc= [ src1 src2 UCOMISD label %jump-float= ] }
{ cc<> [ src1 src2 UCOMISD label JNE ] } { cc<> [ src1 src2 COMISD label JNE ] }
{ cc<>= [ src1 src2 UCOMISD label JNP ] } { cc<>= [ src1 src2 COMISD label JNP ] }
{ cc/< [ src2 src1 COMISD label JBE ] } { cc/< [ src2 src1 UCOMISD label JBE ] }
{ cc/<= [ src2 src1 COMISD label JB ] } { cc/<= [ src2 src1 UCOMISD label JB ] }
{ cc/> [ src1 src2 COMISD label JBE ] } { cc/> [ src1 src2 UCOMISD label JBE ] }
{ cc/>= [ src1 src2 COMISD label JB ] } { cc/>= [ src1 src2 UCOMISD label JB ] }
{ cc/= [ src1 src2 COMISD label %jump-float/= ] } { cc/= [ src1 src2 UCOMISD label %jump-float/= ] }
{ cc/<> [ src1 src2 COMISD label JE ] } { cc/<> [ src1 src2 UCOMISD label JE ] }
{ cc/<>= [ src1 src2 COMISD label JP ] } { cc/<>= [ src1 src2 UCOMISD label JP ] }
} case ; } case ;
M: x86 %spill ( src n rep -- ) [ spill@ swap ] dip copy-register ; M: x86 %spill ( src n rep -- ) [ spill@ swap ] dip copy-register ;