Changeset 15151
 Timestamp:
 Dec 21, 2011, 11:38:34 PM (8 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/PPC/ppc2.lisp
r15089 r15151 3919 3919 (^))) 3920 3920 3921 (defun ppc2naturalconstant (seg vreg xfer value) 3922 (ppc2useoperator 3923 (if (typep value *nxtargetfixnumtype*) 3924 (%nx1operator fixnum) 3925 (%nx1operator immediate)) 3926 seg vreg xfer value)) 3927 3928 3921 3929 3922 3930 … … 8861 8869 (fixy (acodefixnumformp y))) 8862 8870 (if (and fixx fixy) 8863 (ppc2 absolutenaturalseg vreg xfer (+ fixx fixy))8871 (ppc2naturalconstant seg vreg xfer (+ fixx fixy)) 8864 8872 (let* ((u15x (and (typep fixx '(unsignedbyte 15)) fixx)) 8865 8873 (u15y (and (typep fixy '(unsignedbyte 15)) fixy))) … … 8885 8893 (fixy (acodefixnumformp y))) 8886 8894 (if (and fixx fixy) 8887 (ppc2 absolutenaturalseg vreg xfer ( fixx fixy))8895 (ppc2naturalconstant seg vreg xfer ( fixx fixy)) 8888 8896 (let* ((u15y (and (typep fixy '(unsignedbyte 15)) fixy))) 8889 8897 (if (not u15y) … … 8908 8916 (naturaly (nxnaturalconstantp y))) 8909 8917 (if (and naturalx naturaly) 8910 (ppc2 absolutenaturalseg vreg xfer (logior naturalx naturaly))8918 (ppc2naturalconstant seg vreg xfer (logior naturalx naturaly)) 8911 8919 (let* ((u32x (nxu32constantp x)) 8912 8920 (u32y (nxu32constantp y)) … … 8935 8943 (naturaly (nxnaturalconstantp y))) 8936 8944 (if (and naturalx naturaly) 8937 (ppc2 absolutenaturalseg vreg xfer (logxor naturalx naturaly))8945 (ppc2naturalconstant seg vreg xfer (logxor naturalx naturaly)) 8938 8946 (let* ((u32x (nxu32constantp x)) 8939 8947 (u32y (nxu32constantp y)) … … 8962 8970 (naturaly (nxnaturalconstantp y))) 8963 8971 (if (and naturalx naturaly) 8964 (ppc2 absolutenaturalseg vreg xfer (logand naturalx naturaly))8972 (ppc2naturalconstant seg vreg xfer (logand naturalx naturaly)) 8965 8973 (let* ((u32x (nxu32constantp x)) 8966 8974 (u32y (nxu32constantp y))
Note: See TracChangeset
for help on using the changeset viewer.