Changeset 11287


Ignore:
Timestamp:
Nov 2, 2008, 9:28:55 AM (11 years ago)
Author:
gb
Message:

... and (committed too soon):

in general aref/aset of 1/2/3-d vectors, do a typed operation if the
array arg is declared to be simple and dimensions are * (as well as
when number of dimensions matches.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r11286 r11287  
    85718571         (keyword (and atype
    85728572                       (let* ((dims (array-ctype-dimensions atype)))
    8573                          (and (typep dims 'list)
    8574                               (= 2 (length dims))))
     8573                         (or (eq dims '*)
     8574                             (and (typep dims 'list)
     8575                                  (= 2 (length dims)))))
    85758576                       (not (array-ctype-complexp atype))
    85768577                       (funcall
     
    86268627         (keyword (and atype
    86278628                       (let* ((dims (array-ctype-dimensions atype)))
    8628                          (and (typep dims 'list)
    8629                            (= 3 (length dims))))
     8629                         (or (eq dims '*)
     8630                             (and (typep dims 'list)
     8631                                  (= 3 (length dims)))))
    86308632                       (not (array-ctype-complexp atype))
    86318633                       (funcall
Note: See TracChangeset for help on using the changeset viewer.