Changeset 6425 for branches/x8664-call


Ignore:
Timestamp:
May 4, 2007, 2:49:42 PM (13 years ago)
Author:
gb
Message:

ACODE-FORM-TYPE: look at multi-dimensional array operations, too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/nx0.lisp

    r6284 r6425  
    445445                              (eql 0 (%ilogand $vsetqmask bits)))
    446446                        (var-inittype var)))
    447                     (if (eq op (%nx1-operator %aref1))
     447                    (if (or (eq op (%nx1-operator %aref1))
     448                            (eq op (%nx1-operator simple-typed-aref2))
     449                            (eq op (%nx1-operator general-aref2))
     450                            (eq op (%nx1-operator simple-typed-aref3))
     451                            (eq op (%nx1-operator general-aref3)))
    448452                      (let* ((atype (acode-form-type (cadr form) t))
    449453                             (actype (if atype (specifier-type atype))))
Note: See TracChangeset for help on using the changeset viewer.