Changeset 12038


Ignore:
Timestamp:
May 13, 2009, 5:52:51 AM (10 years ago)
Author:
gb
Message:

NX-ERROR-FOR-SIMPLE-2D-ARRAY-TYPE, NX-ERROR-FOR-SIMPLE-3D-ARRAY-TYPE:
get error numbers for :SINGLE-FLOAT-VECTOR (underlying array type)
right.

When checking call arguments in NX1-CALL-RESULT-TYPE, don't try to
use global-def if it's not FUNCTIONP (macros, special-operators.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r12037 r12038  
    602602    (:signed-64-bit-vector arch::error-object-not-simple-array-s64-2d)
    603603    (:double-float-vector arch::error-object-not-simple-array-double-float-2d)
    604     (:single-float-vector arch::error-object-not-simple-array-double-float-2d)
     604    (:single-float-vector arch::error-object-not-simple-array-single-float-2d)
    605605    (:fixnum-vector arch::error-object-not-simple-array-fixnum-2d)))
    606606
     
    619619    (:signed-64-bit-vector arch::error-object-not-simple-array-s64-3d)
    620620    (:double-float-vector arch::error-object-not-simple-array-double-float-3d)
    621     (:single-float-vector arch::error-object-not-simple-array-double-float-3d)
     621    (:single-float-vector arch::error-object-not-simple-array-single-float-3d)
    622622    (:fixnum-vector arch::error-object-not-simple-array-fixnum-3d)))
    623623
     
    19311931      (when (nx1-check-format-call (car somedef) (cdr somedef) env)
    19321932        (setq whined t)))
    1933     (when (and args-p (setq somedef (or lexenv-def defenv-def global-def)))
     1933    (when (and args-p (setq somedef (or lexenv-def defenv-def (if (typep global-def 'function) global-def))))
    19341934      (multiple-value-bind (deftype reason)
    19351935          (nx1-check-call-args somedef args spread-p)
Note: See TracChangeset for help on using the changeset viewer.