Changeset 14240


Ignore:
Timestamp:
Sep 9, 2010, 1:17:42 AM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r13887 r14240  
    91169116      (^))))
    91179117
    9118 (defppc2 ppc2-%fixnum-mask-to-natural %fixnum-mask-to-natural (seg vreg xfer arg)
    9119   (with-imm-target () (dreg :natural)
    9120     (let* ((r (ppc2-one-untargeted-reg-form seg arg ppc::arg_z)))
    9121       (unless (or (acode-fixnum-form-p arg)
    9122                   *ppc2-reckless*)
    9123         (! trap-unless-fixnum r))
    9124       (! fixnum->signed-natural dreg r)
    9125       (<- dreg)
    9126       (^))))
    9127 
    91289118(defppc2 ppc2-%double-float %double-float (seg vreg xfer arg)
    91299119  (let* ((real (or (acode-fixnum-form-p arg)
Note: See TracChangeset for help on using the changeset viewer.