Fix PowerPC bootstrap

db4
sheeple 2008-11-24 11:34:18 -06:00
parent f2040c0529
commit 6c568d5c3d
1 changed files with 2 additions and 2 deletions

View File

@ -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) ] }