Changeset 13877

Timestamp:

Jun 23, 2010, 11:57:35 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

new: ppc2-%fixnum-mask-to-natural

File:

• branches/rme-logops/compiler/PPC/ppc2.lisp (modified) (1 diff)

branches/rme-logops/compiler/PPC/ppc2.lisp

@@ -9116 +9116 @@
       (^))))
 
+(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)