Merge branch 'master' of git://factorcode.org/git/factor
commit
e62a558cf4
|
@ -396,14 +396,14 @@ M: ppc %epilogue ( n -- )
|
|||
1 1 rot ADDI
|
||||
0 MTLR ;
|
||||
|
||||
:: (%boolean) ( dst word -- )
|
||||
:: (%boolean) ( dst temp word -- )
|
||||
"end" define-label
|
||||
dst \ f tag-number %load-immediate
|
||||
"end" get word execute
|
||||
dst \ t %load-indirect
|
||||
"end" get resolve-label ; inline
|
||||
|
||||
: %boolean ( dst cc -- )
|
||||
: %boolean ( dst temp cc -- )
|
||||
negate-cc {
|
||||
{ cc< [ \ BLT (%boolean) ] }
|
||||
{ cc<= [ \ BLE (%boolean) ] }
|
||||
|
|
Loading…
Reference in New Issue