More PowerPC fixes

diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index cfbed5378db17b76475f6db23f3afd37a017117c..2d93588d2b0c47c21bb013f6517cd16ddffcc54f 100755 (executable)
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -463,8 +463,8 @@ SYMBOLS:
             1 >>align
             "box_boolean" >>boxer
             "to_boolean" >>unboxer
-        \ bool define-primitive-type
     ] if
+    \ bool define-primitive-type
 
     <c-type>
         math:float >>class

diff --git a/basis/cpu/ppc/bootstrap.factor b/basis/cpu/ppc/bootstrap.factor
index e987a35aa81b74396c2ebb1087489878183dd80a..7e7de6d4bcb0dd5a6301cac6c954bfb9f1e64c80 100644 (file)
--- a/basis/cpu/ppc/bootstrap.factor
+++ b/basis/cpu/ppc/bootstrap.factor
@@ -470,7 +470,7 @@ CONSTANT: rs-reg 14
 \r
 [\r
     3 ds-reg 0 LWZ\r
-    3 3 1 SRAWI\r
+    3 3 2 SRAWI\r
     rs-reg 3 3 LWZX\r
     3 ds-reg 0 STW\r
 ] \ get-local define-sub-primitive\r
@@ -478,7 +478,7 @@ CONSTANT: rs-reg 14
 [\r
     3 ds-reg 0 LWZ\r
     ds-reg ds-reg 4 SUBI\r
-    3 3 1 SRAWI\r
+    3 3 2 SRAWI\r
     rs-reg 3 rs-reg SUBF\r
 ] \ drop-locals define-sub-primitive\r
 \r