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

typos in cpu.ppc

db4
Joe Groff 2009-09-08 21:44:11 -05:00
parent 8e0a31669f
commit 9be1f42fe9
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

@ -564,11 +564,11 @@ M: ppc %compare-imm-branch [ (%compare-imm) ] 2dip %branch ;
branch2 [ label branch2 execute( label -- ) ] when ; inline
M:: ppc %compare-float-ordered-branch ( label src1 src2 cc -- )
cc src1 src2 \ (%compare-float-ordered) \ (%compare-float) :> branch2 :> branch1
src1 src2 cc \ (%compare-float-ordered) (%compare-float) :> branch2 :> branch1
label branch1 branch2 (%branch) ;
M:: ppc %compare-float-unordered-branch ( label src1 src2 cc -- )
cc src1 src2 \ (%compare-float-unordered) \ (%compare-float) :> branch2 :> branch1
cc src1 src2 \ (%compare-float-unordered) (%compare-float) :> branch2 :> branch1
label branch1 branch2 (%branch) ;
: load-from-frame ( dst n rep -- )