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

fix some typos in cpu.ppc

db4
Slava Pestov 2009-09-04 11:18:41 -05:00
parent 92d5d8f0c5
commit 382e1d5b0e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/cpu/ppc/ppc.factor
View File

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