Ignore:
Timestamp:
Feb 25, 2008, 11:14:57 AM (12 years ago)
Author:
gb
Message:

Inline ARRAY-TOTAL-SIZE when typechecking arrays.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-typesys.lisp

    r8527 r8583  
    36593659                   (and (null (cdr ctype-dimensions))
    36603660                        (or (eq (%car ctype-dimensions) '*)
    3661                             (eql (%car ctype-dimensions) (array-total-size object)))))))
     3661                            (eql (%car ctype-dimensions)
     3662                                 (if (eql typecode target::subtag-vectorH)
     3663                                   (%svref object target::vectorH.physsize-cell)
     3664                                   (uvsize object))))))))
    36623665         (or (eq (array-ctype-element-type type) *wild-type*)
    36633666             (eql (array-ctype-typecode type)
Note: See TracChangeset for help on using the changeset viewer.