Ignore:
Timestamp:
Jun 25, 2010, 2:33:40 AM (10 years ago)
Author:
rme
Message:

Make the compiler work a little harder to identify cases where
LOGAND and LOGIOR can use natural-sized operations.

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source

  • trunk/source/compiler/X86/x862.lisp

    r13538 r13887  
    1009410094      (^))))
    1009510095
     10096(defx862 x862-%fixnum-mask-to-natural %fixnum-mask-to-natural (seg vreg xfer arg)
     10097  (with-imm-target () (target :natural)
     10098    (let ((r (x862-one-untargeted-reg-form seg arg *x862-arg-z*)))
     10099      (unless (or (acode-fixnum-form-p arg)
     10100                  *x862-reckless*)
     10101        (! trap-unless-finxum r))
     10102      (! fixnum->signed-natural target r)
     10103      (<- target)
     10104      (^))))
     10105
    1009610106(defx862 x862-%double-float %double-float (seg vreg xfer arg)
    1009710107  (let* ((real (or (acode-fixnum-form-p arg)
Note: See TracChangeset for help on using the changeset viewer.