Changeset 15149
 Timestamp:
 Dec 21, 2011, 10:28:20 PM (8 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/X86/x862.lisp
r15059 r15149 5030 5030 (^))) 5031 5031 5032 (defun x862naturalconstant (seg vreg xfer value) 5033 (x862useoperator 5034 (if (typep value *nxtargetfixnumtype*) 5035 (%nx1operator fixnum) 5036 (%nx1operator immediate)) 5037 seg vreg xfer value)) 5038 5039 5032 5040 5033 5041 … … 10473 10481 (fixy (acodefixnumformp y))) 10474 10482 (if (and fixx fixy) 10475 (x862 absolutenaturalseg vreg xfer (+ fixx fixy))10483 (x862naturalconstant seg vreg xfer (+ fixx fixy)) 10476 10484 (let* ((u31x (and (typep fixx '(unsignedbyte 31)) fixx)) 10477 10485 (u31y (and (typep fixy '(unsignedbyte 31)) fixy))) … … 10498 10506 (fixy (acodefixnumformp y))) 10499 10507 (if (and fixx fixy) 10500 (x862 absolutenaturalseg vreg xfer ( fixx fixy))10508 (x862naturalconstant seg vreg xfer ( fixx fixy)) 10501 10509 (let* ((u31y (and (typep fixy '(unsignedbyte 31)) fixy))) 10502 10510 (if (not u31y) … … 10522 10530 (naturaly (nxnaturalconstantp y))) 10523 10531 (if (and naturalx naturaly) 10524 (x862 absolutenaturalseg vreg xfer (logior naturalx naturaly))10532 (x862naturalconstant seg vreg xfer (logior naturalx naturaly)) 10525 10533 (let* ((u31x (nxu31constantp x)) 10526 10534 (u31y (nxu31constantp y)) … … 10548 10556 (naturaly (nxnaturalconstantp y))) 10549 10557 (if (and naturalx naturaly) 10550 (x862 absolutenaturalseg vreg xfer (logxor naturalx naturaly))10558 (x862naturalconstant seg vreg xfer (logxor naturalx naturaly)) 10551 10559 (let* ((u32x (nxu32constantp x)) 10552 10560 (u32y (nxu32constantp y)) … … 10573 10581 (let* ((naturalx (nxnaturalconstantp x)) 10574 10582 (naturaly (nxnaturalconstantp y))) 10575 (if (and naturalx naturaly) 10576 (x862 absolutenaturalseg vreg xfer (logand naturalx naturaly))10583 (if (and naturalx naturaly) 10584 (x862naturalconstant seg vreg xfer (logand naturalx naturaly)) 10577 10585 (let* ((u31x (nxu31constantp x)) 10578 10586 (u31y (nxu31constantp y))
Note: See TracChangeset
for help on using the changeset viewer.