Changeset 12869


Ignore:
Timestamp:
Sep 22, 2009, 3:27:10 AM (10 years ago)
Author:
gb
Message:

ppc version of recent compiler changes

File:
1 edited

Legend:

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

    r12603 r12869  
    37543754                   (let* ((bits (nx-var-bits var)))
    37553755                     (if (%ilogbitp $vbitpuntable bits)
    3756                        (nx-untyped-form initform)))))
     3756                       initform))))
    37573757            (declare (inline ppc2-puntable-binding-p))
    37583758            (if (and (not (ppc2-load-ea-p val))
     
    37603760              (progn
    37613761                (nx-set-var-bits var (%ilogior (%ilsl $vbitpunted 1) bits))
     3762                (nx2-replace-var-refs var puntval)
    37623763                (ppc2-set-var-ea seg var puntval))
    37633764              (progn
     
    38533854  (with-ppc-local-vinsn-macros (seg)
    38543855    (let* ((ea-p (ppc2-load-ea-p value))
    3855            (nil-p (unless ea-p (eq (setq value (nx-untyped-form value)) *nx-nil*)))
     3856           (nil-p (unless ea-p (nx-null (setq value (nx-untyped-form value)))))
    38563857           (self-p (unless ea-p (and (or
    38573858                                      (eq (acode-operator value) (%nx1-operator bound-special-ref))
     
    44924493    nil
    44934494    (let* ((val (acode-unwrapped-form-value valform)))
    4494       (if (or (eq val *nx-t*)
    4495               (eq val *nx-nil*)
     4495      (if (or (nx-t val)
     4496              (nx-null val)
    44964497              (and (acode-p val)
    44974498                   (let* ((op (acode-operator val)))
     
    55395540    (ppc2-typechecked-form seg vreg xfer typespec form)
    55405541    (ppc2-form seg vreg xfer form)))
     5542
     5543(defppc2 ppc2-type-asserted-form type-asserted-form (seg vreg xfer typespec form &optional check)
     5544  (declare (ignore typespec check))
     5545  (ppc2-form seg vreg xfer form))
     5546
    55415547
    55425548(defppc2 ppc2-%primitive %primitive (seg vreg xfer &rest ignore)
Note: See TracChangeset for help on using the changeset viewer.