Changeset 13890 for trunk/source/compiler/nx0.lisp
 Timestamp:
 Jun 25, 2010, 8:36:08 PM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/nx0.lisp
r13887 r13890 581 581 (if (acodep x) 582 582 (if (and (eq (acodeoperator x) (%nx1operator immediate)) 583 (typep (cadr x) ' fixnum))583 (typep (cadr x) 'integer)) 584 584 (cadr x))))))) 585 585 (and int … … 595 595 (if (acodep x) 596 596 (if (and (eq (acodeoperator x) (%nx1operator immediate)) 597 (typep (cadr x) ' fixnum))597 (typep (cadr x) 'integer)) 598 598 (cadr x))))))) 599 599 (and int … … 2778 2778 (fix2 (nxacodefixnumtypep form2 env)) 2779 2779 (nat1 (nxacodenaturaltypep form1 env)) 2780 (nat2 (nxacodenaturaltypep form2 env))) 2780 (nat2 (nxacodenaturaltypep form2 env)) 2781 (naturalwidth (targetwordsizecase (32 32) (64 64))) 2782 (naturalmask (1 (ash 1 naturalwidth)))) 2783 (when (and nat1 2784 (not nat2) 2785 (acodeintegerconstantp form2 naturalwidth)) 2786 (setq form2 (nx1form (logand naturalmask arg2)) 2787 nat2 t)) 2788 (when (and (not nat1) 2789 nat2 2790 (acodeintegerconstantp form1 naturalwidth)) 2791 (setq form1 (nx1form (logand naturalmask arg1)) 2792 nat1 t)) 2781 2793 (cond 2782 2794 ((and fix1 fix2)
Note: See TracChangeset
for help on using the changeset viewer.