Changeset 15150


Ignore:
Timestamp:
Dec 21, 2011, 10:50:16 PM (8 years ago)
Author:
gb
Message:

ARM backend had the same bug as in r15149.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm2.lisp

    r15128 r15150  
    42864286    (^)))
    42874287
     4288(defun arm2-natural-constant (seg vreg xfer value)
     4289  (arm2-use-operator
     4290   (if (typep value *nx-target-fixnum-type*)
     4291     (%nx1-operator fixnum)
     4292     (%nx1-operator immediate))
     4293   seg vreg xfer value))
     4294   
    42884295
    42894296
     
    89548961           (fix-y (acode-fixnum-form-p y)))
    89558962      (if (and fix-x fix-y)
    8956         (arm2-absolute-natural seg vreg xfer (+ fix-x fix-y))
     8963        (arm2-natural-constant seg vreg xfer (+ fix-x fix-y))
    89578964        (let* ((u15x (and (typep fix-x '(unsigned-byte 15)) fix-x))
    89588965               (u15y (and (typep fix-y '(unsigned-byte 15)) fix-y)))
     
    89788985           (fix-y (acode-fixnum-form-p y)))
    89798986      (if (and fix-x fix-y)
    8980         (arm2-absolute-natural seg vreg xfer (- fix-x fix-y))
     8987        (arm2-natural-constant seg vreg xfer (- fix-x fix-y))
    89818988        (let* ((u15y (and (typep fix-y '(unsigned-byte 15)) fix-y)))
    89828989          (if (not u15y)
     
    90019008           (naturaly (nx-natural-constant-p y)))
    90029009      (if (and naturalx naturaly)
    9003         (arm2-absolute-natural seg vreg xfer (logior naturalx naturaly))
     9010        (arm2-natural-constant seg vreg xfer (logior naturalx naturaly))
    90049011        (let* ((constant (let* ((c (or naturalx naturaly)))
    90059012                           (when c
     
    90279034           (naturaly (nx-natural-constant-p y)))
    90289035      (if (and naturalx naturaly)
    9029         (arm2-absolute-natural seg vreg xfer (logxor naturalx naturaly))
     9036        (arm2-natural-constant seg vreg xfer (logxor naturalx naturaly))
    90309037        (let* ((constant (let* ((c (or naturalx naturaly)))
    90319038                           (when c
     
    90539060           (naturaly (nx-natural-constant-p y)))
    90549061      (if (and naturalx naturaly)
    9055         (arm2-absolute-natural seg vreg xfer (logand naturalx naturaly))
     9062        (arm2-natural-constant seg vreg xfer (logand naturalx naturaly))
    90569063        (let* ((constant (let* ((c (or naturalx naturaly)))
    90579064                           (when c
Note: See TracChangeset for help on using the changeset viewer.