Changeset 11869


Ignore:
Timestamp:
Mar 31, 2009, 10:53:23 AM (11 years ago)
Author:
gb
Message:

Add type-error constants for (not-necessarily-SIMPLE-) vector types.
Note that we're running low on available type-error constants; on x86,
the constant currently needs to fit in an 8-bit byte and has the high
bit set.

Location:
trunk/source
Files:
3 edited

Legend:

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

    r11522 r11869  
    7171  (defconstant error-type-error 128)
    7272)
     73
    7374
    7475(defconstant error-fpu-exception-double 1024)   ; FPU exception, binary double-float op
     
    192193  simple-array-char-3d
    193194
     195  ;;
     196  vector-t
     197  bit-vector
     198  vector-s8
     199  vector-u8
     200  vector-s16
     201  vector-u16
     202  vector-s32
     203  vector-u32
     204  vector-s64
     205  vector-u64
     206  vector-fixnum
     207  vector-single-float
     208  vector-double-float
     209 
    194210  ;; Sentinel
    195211  unused-max-type-error
  • trunk/source/level-1/l1-error-system.lisp

    r11855 r11869  
    11941194    (simple-array double-float (* * *))
    11951195    (simple-array char (* * *))
    1196    
     1196
     1197    (vector t)
     1198    bit-vector
     1199    (vector (signed-byte 8))
     1200    (vector (unsigned-byte 8))
     1201    (vector (signed-byte 16))
     1202    (vector (unsigned-byte 16))
     1203    (vector (signed-byte 32))
     1204    (vector (unsigned-byte 32))
     1205    (vector (signed-byte 64))
     1206    (vector (unsigned-byte 64))
     1207    (vector fixnum)
     1208    (vector single-float)
     1209    (vector double-float)
     1210
    11971211    ))
    11981212
  • trunk/source/lisp-kernel/errors.s

    r8579 r11869  
    151151        def_type_error(simple_array_double_float_3d)
    152152        def_type_error(simple_array_char_3d)
     153        def_type_error(vector_t)
     154        def_type_error(bit_vector)
     155        def_type_error(vector_s8)
     156        def_type_error(vector_u8)
     157        def_type_error(vector_s16)
     158        def_type_error(vector_u16)
     159        def_type_error(vector_s32)
     160        def_type_error(vector_u32)
     161        def_type_error(vector_s64)
     162        def_type_error(vector_u64)
     163        def_type_error(vector_fixnum)
     164        def_type_error(vector_single_float)
     165        def_type_error(vector_double_float)
     166       
    153167       
    154168       
Note: See TracChangeset for help on using the changeset viewer.