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

update cpu.ppc for argument order changes

Joe Groff 2009-09-08 21:58:11 -05:00
parent f4e574383c
commit b64b4a5cd9
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -555,9 +555,13 @@ M:: ppc %compare-float-unordered ( dst src1 src2 cc temp -- )
{ cc/= [ label BNE ] }
} case ;
M: ppc %compare-branch [ (%compare) ] 2dip %branch ;
M:: ppc %compare-branch ( label src1 src2 cc -- )
src1 src2 (%compare) %branch
label cc %branch ;
M: ppc %compare-imm-branch [ (%compare-imm) ] 2dip %branch ;
M:: ppc %compare-imm-branch ( label src1 src2 cc -- )
src1 src2 (%compare) %branch
label cc %branch ;
:: (%branch) ( label branch1 branch2 -- )
label branch1 execute( label -- )