Changeset 14240

Timestamp:

Sep 8, 2010, 6:17:42 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Remove leftovers (remnants of operator %fixnum-mask-to-natural)
from failed experiment.

File:

• trunk/source/compiler/PPC/ppc2.lisp (modified) (1 diff)

trunk/source/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)