Changeset 5529


Ignore:
Timestamp:
Nov 9, 2006, 12:36:13 PM (13 years ago)
Author:
gb
Message:

Type-errors for 3d array types.

Location:
trunk/ccl
Files:
4 edited

Legend:

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

    r5445 r5529  
    148148  simple-array-fixnum-2d
    149149  simple-array-char-2d
     150  array-t-3d
     151  array-bit-3d
     152  array-s8-3d
     153  array-u8-3d
     154  array-s16-3d
     155  array-u16-3d
     156  array-s32-3d
     157  array-u32-3d
     158  array-s64-3d
     159  array-u64-3d
     160  array-fixnum-3d
     161  array-single-float-3d
     162  array-double-float-3d
     163  array-char-3d
     164  simple-array-t-3d
     165  simple-array-bit-3d
     166  simple-array-s8-3d
     167  simple-array-u8-3d
     168  simple-array-s16-3d
     169  simple-array-u16-3d
     170  simple-array-s32-3d
     171  simple-array-u32-3d
     172  simple-array-s64-3d
     173  simple-array-u64-3d
     174  simple-array-fixnum-3d
     175  simple-array-single-float-3d
     176  simple-array-double-float-3d
     177  simple-array-char-3d
     178
    150179  ;; Sentinel
    151180  unused-max-type-error
  • trunk/ccl/level-1/l1-error-system.lisp

    r5452 r5529  
    10111011    (array single-float (* *))
    10121012    (array double-float (* *))
    1013     (array char (* *))
     1013    (array character (* *))
    10141014    (simple-array t (* *))
    10151015    (simple-array bit (* *))
     
    10231023    (simple-array (unsigned-byte 64) (* *))
    10241024    (simple-array fixnum (* *))
    1025     (simple-array char (* *))
     1025    (simple-array character (* *))
     1026    (array t (* * *))
     1027    (array bit (* * *))
     1028    (array (signed-byte 8) (* * *))
     1029    (array (unsigned-byte 8) (* * *))
     1030    (array (signed-byte 16) (* * *))
     1031    (array (unsigned-byte 16) (* * *))
     1032    (array (signed-byte 32) (* * *))
     1033    (array (unsigned-byte 32) (* * *))
     1034    (array (signed-byte 64) (* * *))
     1035    (array (unsigned-byte 64) (* * *))
     1036    (array fixnum (* * *))
     1037    (array single-float (* * *))
     1038    (array double-float (* * *))
     1039    (array character (* * *))
     1040    (simple-array t (* * *))
     1041    (simple-array bit (* * *))
     1042    (simple-array (signed-byte 8) (* * *))
     1043    (simple-array (unsigned-byte 8) (* * *))
     1044    (simple-array (signed-byte 16) (* * *))
     1045    (simple-array (unsigned-byte 16) (* * *))
     1046    (simple-array (signed-byte 32) (* * *))
     1047    (simple-array (unsigned-byte 32) (* * *))
     1048    (simple-array (signed-byte 64) (* * *))
     1049    (simple-array (unsigned-byte 64) (* * *))
     1050    (simple-array fixnum (* * *))
     1051    (simple-array single-float (* * *))
     1052    (simple-array double-float (* * *))
     1053    (simple-array char (* * *))
     1054   
    10261055    ))
    10271056
  • trunk/ccl/lisp-kernel/errors.s

    r5455 r5529  
    117117        def_type_error(simple_array_fixnum_2d)
    118118        def_type_error(simple_array_char_2d)
     119        def_type_error(array_t_3d)
     120        def_type_error(array_bit_3d)
     121        def_type_error(array_s8_3d)
     122        def_type_error(array_u8_3d)
     123        def_type_error(array_s16_3d)
     124        def_type_error(array_u16_3d)
     125        def_type_error(array_s32_3d)
     126        def_type_error(array_u32_3d)
     127        def_type_error(array_s64_3d)
     128        def_type_error(array_u64_3d)
     129        def_type_error(array_fixnum_3d)
     130        def_type_error(array_single_float_3d)
     131        def_type_error(array_double_float_3d)
     132        def_type_error(array_char_3d)
     133        def_type_error(simple_array_t_3d)
     134        def_type_error(simple_array_bit_3d)
     135        def_type_error(simple_array_s8_3d)
     136        def_type_error(simple_array_u8_3d)
     137        def_type_error(simple_array_s16_3d)
     138        def_type_error(simple_array_u16_3d)
     139        def_type_error(simple_array_s32_3d)
     140        def_type_error(simple_array_u32_3d)
     141        def_type_error(simple_array_s64_3d)
     142        def_type_error(simple_array_u64_3d)
     143        def_type_error(simple_array_fixnum_3d)
     144        def_type_error(simple_array_single_float_3d)
     145        def_type_error(simple_array_double_float_3d)
     146        def_type_error(simple_array_char_3d)
    119147       
    120148       
  • trunk/ccl/lisp-kernel/lisp-errors.h

    r5455 r5529  
    126126  error_object_not_simple_array_u64_2d,
    127127  error_object_not_simple_array_fixnum_2d,
    128   error_object_not_simple_array_char_2d
     128  error_object_not_simple_array_char_2d,
     129  error_object_not_array_t_3d,
     130  error_object_not_array_bit_3d,
     131  error_object_not_array_s8_3d,
     132  error_object_not_array_u8_3d,
     133  error_object_not_array_s16_3d,
     134  error_object_not_array_u16_3d,
     135  error_object_not_array_s32_3d,
     136  error_object_not_array_u32_3d,
     137  error_object_not_array_s64_3d,
     138  error_object_not_array_u64_3d,
     139  error_object_not_array_fixnum_3d,
     140  error_object_not_array_single_float_3d,
     141  error_object_not_array_double_float_3d,
     142  error_object_not_array_char_3d,
     143  error_object_not_simple_array_t_3d,
     144  error_object_not_simple_array_bit_3d,
     145  error_object_not_simple_array_s8_3d,
     146  error_object_not_simple_array_u8_3d,
     147  error_object_not_simple_array_s16_3d,
     148  error_object_not_simple_array_u16_3d,
     149  error_object_not_simple_array_s32_3d,
     150  error_object_not_simple_array_u32_3d,
     151  error_object_not_simple_array_s64_3d,
     152  error_object_not_simple_array_u64_3d,
     153  error_object_not_simple_array_fixnum_3d,
     154  error_object_not_simple_array_single_float_3d,
     155  error_object_not_simple_array_double_float_3d,
     156  error_object_not_simple_array_char_3d
    129157} type_error;
    130158
Note: See TracChangeset for help on using the changeset viewer.