Index: /branches/rme-logops/compiler/PPC/ppc2.lisp
===================================================================
--- /branches/rme-logops/compiler/PPC/ppc2.lisp	(revision 13876)
+++ /branches/rme-logops/compiler/PPC/ppc2.lisp	(revision 13877)
@@ -9116,4 +9116,14 @@
       (^))))
 
+(defppc2 ppc2-%fixnum-mask-to-natural %fixnum-mask-to-natural (seg vreg xfer arg)
+  (with-imm-target () (dreg :natural)
+    (let* ((r (ppc2-one-untargeted-reg-form seg arg ppc::arg_z)))
+      (unless (or (acode-fixnum-form-p arg)
+                  *ppc2-reckless*)
+        (! trap-unless-fixnum r))
+      (! fixnum->signed-natural dreg r)
+      (<- dreg)
+      (^))))
+
 (defppc2 ppc2-%double-float %double-float (seg vreg xfer arg)
   (let* ((real (or (acode-fixnum-form-p arg)