Changeset 14304 for trunk/source/compiler/nx0.lisp
 Timestamp:
 Sep 28, 2010, 4:45:53 PM (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/nx0.lisp
r14297 r14304 571 571 (cadr x)))) 572 572 573 (defun acodexxxformp (x fixnumsupertype) 574 (or (acodefixnumformp x) 575 (progn 576 (setq x (acodeunwrappedformvalue x)) 577 (if (acodep x) 578 (if (and (eq (acodeoperator x) (%nx1operator immediate)) 579 (typep (cadr x) fixnumsupertype)) 580 (cadr x)))))) 581 582 (defun acodeintegerformp (x) 583 (acodexxxformp x 'integer)) 584 573 585 (defun acodeintegerconstantp (x bits) 574 (let* ((int (or (acodefixnumformp x) 575 (progn 576 (setq x (acodeunwrappedform x)) 577 (if (acodep x) 578 (if (and (eq (acodeoperator x) (%nx1operator immediate)) 579 (typep (cadr x) 'integer)) 580 (cadr x))))))) 586 (let ((int (acodeintegerformp x))) 581 587 (and int 582 588 (or … … 585 591 int))) 586 592 587 (defun acodenaturalconstantp (x)588 (let* ((int (or (acodefixnumformp x)589 (progn590 (setq x (acodeunwrappedform x))591 (if (acodep x)592 (if (and (eq (acodeoperator x) (%nx1operator immediate))593 (typep (cadr x) 'integer))594 (cadr x)))))))595 (and int596 (targetwordsizecase597 (32 (typep int '(unsignedbyte 32)))598 (64 (typep int '(unsignedbyte 64))))599 int)))600 601 602 603 593 (defun acoderealconstantp (x) 604 (or (acodefixnumformp x) 605 (progn 606 (setq x (acodeunwrappedform x)) 607 (if (acodep x) 608 (if (and (eq (acodeoperator x) (%nx1operator immediate)) 609 (typep (cadr x) 'real)) 610 (cadr x)))))) 611 612 594 (acodexxxformp x 'real)) 613 595 614 596 (defun nxlookuptargetuvectorsubtag (name)
Note: See TracChangeset
for help on using the changeset viewer.