Changeset 15151


Ignore:
Timestamp:
Dec 21, 2011, 11:38:34 PM (8 years ago)
Author:
gb
Message:

PPC backend had the same bug as in r15149.

File:
1 edited

Legend:

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

    r15089 r15151  
    39193919    (^)))
    39203920
     3921(defun ppc2-natural-constant (seg vreg xfer value)
     3922  (ppc2-use-operator
     3923   (if (typep value *nx-target-fixnum-type*)
     3924     (%nx1-operator fixnum)
     3925     (%nx1-operator immediate))
     3926   seg vreg xfer value))
     3927
     3928
    39213929
    39223930
     
    88618869           (fix-y (acode-fixnum-form-p y)))
    88628870      (if (and fix-x fix-y)
    8863         (ppc2-absolute-natural seg vreg xfer (+ fix-x fix-y))
     8871        (ppc2-natural-constant seg vreg xfer (+ fix-x fix-y))
    88648872        (let* ((u15x (and (typep fix-x '(unsigned-byte 15)) fix-x))
    88658873               (u15y (and (typep fix-y '(unsigned-byte 15)) fix-y)))
     
    88858893           (fix-y (acode-fixnum-form-p y)))
    88868894      (if (and fix-x fix-y)
    8887         (ppc2-absolute-natural seg vreg xfer (- fix-x fix-y))
     8895        (ppc2-natural-constant seg vreg xfer (- fix-x fix-y))
    88888896        (let* ((u15y (and (typep fix-y '(unsigned-byte 15)) fix-y)))
    88898897          (if (not u15y)
     
    89088916           (naturaly (nx-natural-constant-p y)))
    89098917      (if (and naturalx naturaly)
    8910         (ppc2-absolute-natural seg vreg xfer (logior naturalx naturaly))
     8918        (ppc2-natural-constant seg vreg xfer (logior naturalx naturaly))
    89118919        (let* ((u32x (nx-u32-constant-p x))
    89128920               (u32y (nx-u32-constant-p y))
     
    89358943           (naturaly (nx-natural-constant-p y)))
    89368944      (if (and naturalx naturaly)
    8937         (ppc2-absolute-natural seg vreg xfer (logxor naturalx naturaly))
     8945        (ppc2-natural-constant seg vreg xfer (logxor naturalx naturaly))
    89388946        (let* ((u32x (nx-u32-constant-p x))
    89398947               (u32y (nx-u32-constant-p y))
     
    89628970           (naturaly (nx-natural-constant-p y)))
    89638971      (if (and naturalx naturaly)
    8964         (ppc2-absolute-natural seg vreg xfer (logand naturalx naturaly))
     8972        (ppc2-natural-constant seg vreg xfer (logand naturalx naturaly))
    89658973        (let* ((u32x (nx-u32-constant-p x))
    89668974               (u32y (nx-u32-constant-p y))
Note: See TracChangeset for help on using the changeset viewer.