Changeset 11452
 Timestamp:
 Dec 2, 2008, 7:02:11 AM (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/PPC/ppc2.lisp
r11393 r11452 6610 6610 (atype (if vtype (specifiertype vtype))) 6611 6611 (keyword (if (and atype 6612 (let* ((dims (arrayctypedimensions atype))) 6613 (or (eq dims '*) 6614 (and (not (atom dims)) 6615 (= (length dims) 1)))) 6612 6616 (not (arrayctypecomplexp atype))) 6613 6617 (funcall … … 6623 6627 (atype (if vtype (specifiertype vtype))) 6624 6628 (keyword (if (and atype 6629 (let* ((dims (arrayctypedimensions atype))) 6630 (or (eq dims '*) 6631 (and (not (atom dims)) 6632 (= (length dims) 1)))) 6625 6633 (not (arrayctypecomplexp atype))) 6626 6634 (funcall … … 7619 7627 (ctype (if atype0 (specifiertype atype0))) 7620 7628 (atype (if (arrayctypep ctype) ctype)) 7621 (keyword (and atype 7622 (let* ((dims (arrayctypedimensions atype))) 7623 (and (typep dims 'list) 7624 (= 2 (length dims)))) 7629 (dims (and atype (arrayctypedimensions atype))) 7630 (keyword (and atype 7631 (or (eq dims '*) 7632 (and (typep dims 'list) 7633 (= 2 (length dims)))) 7625 7634 (not (arrayctypecomplexp atype)) 7626 7635 (funcall … … 7629 7638 atype)))) 7630 7639 (cond (keyword 7631 (let* ((dims (arrayctypedimensions atype)) 7632 (dim0 (car dims)) 7640 (when (eq dims '*) 7641 (setq dims nil)) 7642 (let* ((dim0 (car dims)) 7633 7643 (dim1 (cadr dims))) 7634 7644 (ppc2aref2 seg … … 7670 7680 (ctype (if atype0 (specifiertype atype0))) 7671 7681 (atype (if (arrayctypep ctype) ctype)) 7682 (dims (and atype (arrayctypedimensions atype))) 7672 7683 (keyword (and atype 7673 (let* ((dims (arrayctypedimensions atype)))7674 7675 7684 (or (eq dims '*) 7685 (and (typep dims 'list) 7686 (= 3 (length dims)))) 7676 7687 (not (arrayctypecomplexp atype)) 7677 7688 (funcall … … 7680 7691 atype)))) 7681 7692 (cond (keyword 7682 (let* ((dims (arrayctypedimensions atype)) 7683 (dim0 (car dims)) 7693 (when (eq dims '*) 7694 (setq dims nil)) 7695 (let* ((dim0 (car dims)) 7684 7696 (dim1 (cadr dims)) 7685 7697 (dim2 (caddr dims))) … … 7719 7731 (ctype (if atype0 (specifiertype atype0))) 7720 7732 (atype (if (arrayctypep ctype) ctype)) 7733 (dims (and atype (arrayctypedimensions atype))) 7721 7734 (keyword (and atype 7722 (let* ((dims (arrayctypedimensions atype)))7723 7724 7735 (or (eq dims '*) 7736 (and (typep dims 'list) 7737 (= 2 (length dims)))) 7725 7738 (not (arrayctypecomplexp atype)) 7726 7739 (funcall … … 7729 7742 atype)))) 7730 7743 (cond (keyword 7731 (let* ((dims (arrayctypedimensions atype)) 7732 (dim0 (car dims)) 7744 (when (eq dims '*) 7745 (setq dims nil)) 7746 (let* ((dim0 (car dims)) 7733 7747 (dim1 (cadr dims))) 7734 7748 (ppc2aset2 seg … … 7757 7771 (ctype (if atype0 (specifiertype atype0))) 7758 7772 (atype (if (arrayctypep ctype) ctype)) 7773 (dims (and atype (arrayctypedimensions atype))) 7759 7774 (keyword (and atype 7760 (let* ((dims (arrayctypedimensions atype)))7761 7762 7775 (or (eq dims '*) 7776 (unless (atom dims) 7777 (= 3 (length dims)))) 7763 7778 (not (arrayctypecomplexp atype)) 7764 7779 (funcall … … 7767 7782 atype)))) 7768 7783 (cond (keyword 7769 (let* ((dims (arrayctypedimensions atype)) 7770 (dim0 (car dims)) 7784 (when (eq dims '*) 7785 (setq dims nil)) 7786 (let* ((dim0 (car dims)) 7771 7787 (dim1 (cadr dims)) 7772 7788 (dim2 (caddr dims)))
Note: See TracChangeset
for help on using the changeset viewer.