Merge branch 'ppc-float-compare' of git://factorcode.org/git/factor into ppc-float-compare

db4
Joe Groff 2009-09-04 12:31:36 -05:00
commit 8b9d0fb834
1 changed files with 2 additions and 2 deletions

View File

@ -516,7 +516,7 @@ M: ppc %epilogue ( n -- )
: (%compare-float-unordered) ( src1 src2 -- ) [ 0 ] dip FCMPU ; inline
: (%compare-float-ordered) ( src1 src2 -- ) [ 0 ] dip FCMPO ; inline
: (%compare-float) ( cc src1 src2 -- branch1 branch2 )
:: (%compare-float) ( cc src1 src2 -- branch1 branch2 )
cc {
{ cc< [ src1 src2 (%compare-float-ordered) \ BLT f ] }
{ cc<= [ src1 src2 (%compare-float-ordered) \ BLT \ BEQ ] }
@ -536,7 +536,7 @@ M: ppc %epilogue ( n -- )
M: ppc %compare (%compare) %boolean ;
M: ppc %compare-imm (%compare-imm) %boolean ;
M:: ppc %compare-float ( dst temp cc src1 src2 )
M:: ppc %compare-float ( dst temp cc src1 src2 -- )
cc negate-cc src1 src2 (%compare-float) :> branch2 :> branch1
dst temp branch1 branch2 (%boolean) ;