Changeset 13877


Ignore:
Timestamp:
Jun 24, 2010, 6:57:35 AM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/rme-logops/compiler/PPC/ppc2.lisp

    r13469 r13877  
    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
    91189128(defppc2 ppc2-%double-float %double-float (seg vreg xfer arg)
    91199129  (let* ((real (or (acode-fixnum-form-p arg)
Note: See TracChangeset for help on using the changeset viewer.