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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-11-24 12:01:55 -06:00
parent 8678ff091f 6c568d5c3d
commit e62a558cf4
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

@ -396,14 +396,14 @@ M: ppc %epilogue ( n -- )
1 1 rot ADDI 1 1 rot ADDI
0 MTLR ; 0 MTLR ;
:: (%boolean) ( dst word -- ) :: (%boolean) ( dst temp word -- )
"end" define-label "end" define-label
dst \ f tag-number %load-immediate dst \ f tag-number %load-immediate
"end" get word execute "end" get word execute
dst \ t %load-indirect dst \ t %load-indirect
"end" get resolve-label ; inline "end" get resolve-label ; inline
: %boolean ( dst cc -- ) : %boolean ( dst temp cc -- )
negate-cc { negate-cc {
{ cc< [ \ BLT (%boolean) ] } { cc< [ \ BLT (%boolean) ] }
{ cc<= [ \ BLE (%boolean) ] } { cc<= [ \ BLE (%boolean) ] }