Changeset 5455


Ignore:
Timestamp:
Nov 3, 2006, 11:51:41 AM (18 years ago)
Author:
Gary Byers
Message:

New type-error uuo encodings, new type-error constants.

Location:
trunk/ccl/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lisp-kernel/errors.s

    r5440 r5455  
    2727error_cant_call = 17
    2828       
    29 error_type_error = 64
     29error_type_error = 128
    3030
     31define([__type_error_counter__],128)
    3132define([def_type_error],[
    32 error_object_not_$1 = (error_type_error+$2)])
     33error_object_not_$1 = __type_error_counter__
     34        define([__type_error_counter__],eval(__type_error_counter__+1))])
    3335
    34         def_type_error(array,0)
    35         def_type_error(bignum,1)
    36         def_type_error(fixnum,2)
    37         def_type_error(character,3)
    38         def_type_error(integer,4)
    39         def_type_error(list,5)
    40         def_type_error(number,6)
    41         def_type_error(sequence,7)
    42         def_type_error(simple_string,8)
    43         def_type_error(simple_vector,9)
    44         def_type_error(string,10)
    45         def_type_error(symbol,11)
    46         def_type_error(macptr,12)
    47         def_type_error(real,13)
    48         def_type_error(cons,14)
    49         def_type_error(unsigned_byte,15)
    50         def_type_error(radix,16)
    51         def_type_error(float,17)
    52         def_type_error(rational,18)
    53         def_type_error(ratio,19)
    54         def_type_error(short_float,20)
    55         def_type_error(double_float,21)
    56         def_type_error(complex,22)
    57         def_type_error(vector,23)
    58         def_type_error(simple_base_string,24)
    59         def_type_error(function,25)
    60         def_type_error(unsigned_byte_16,26)
    61         def_type_error(unsigned_byte_8,27)
    62         def_type_error(unsigned_byte_32,28)
    63         def_type_error(signed_byte_32,29)
    64         def_type_error(signed_byte_16,30)
    65         def_type_error(signed_byte_8,31)       
    66         def_type_error(base_character,32)
    67         def_type_error(bit,33)
    68         def_type_error(unsigned_byte_24,34)
    69         def_type_error(u64,35)
    70         def_type_error(s64,36)
    71         def_type_error(unsigned_byte_56,37)
    72         def_type_error(simple_array_double_float_2d,38)
    73         def_type_error(simple_array_single_float_2d,39)
    74         def_type_error(mod_char_code_limit,40)
    75         def_type_error(array_2d,41)
    76         def_type_error(array_3d,42)
    77         def_type_error(array_bit,43)
    78         def_type_error(array_s8,44)
    79         def_type_error(array_u8,45)
    80         def_type_error(array_s16,46)
    81         def_type_error(array_u16,47)
    82         def_type_error(array_s32,48)
    83         def_type_error(array_u32,49)
    84         def_type_error(array_s64,50)
    85         def_type_error(array_u64,51)
    86         def_type_error(array_fixnum,52)
    87         def_type_error(array_single_float,53)
    88         def_type_error(array_double_float,54)
    89         def_type_error(array_char,55)
     36        def_type_error(array)
     37        def_type_error(bignum)
     38        def_type_error(fixnum)
     39        def_type_error(character)
     40        def_type_error(integer)
     41        def_type_error(list)
     42        def_type_error(number)
     43        def_type_error(sequence)
     44        def_type_error(simple_string)
     45        def_type_error(simple_vector)
     46        def_type_error(string)
     47        def_type_error(symbol)
     48        def_type_error(macptr)
     49        def_type_error(real)
     50        def_type_error(cons)
     51        def_type_error(unsigned_byte)
     52        def_type_error(radix)
     53        def_type_error(float)
     54        def_type_error(rational)
     55        def_type_error(ratio)
     56        def_type_error(short_float)
     57        def_type_error(double_float)
     58        def_type_error(complex)
     59        def_type_error(vector)
     60        def_type_error(simple_base_string)
     61        def_type_error(function)
     62        def_type_error(unsigned_byte_16)
     63        def_type_error(unsigned_byte_8)
     64        def_type_error(unsigned_byte_32)
     65        def_type_error(signed_byte_32)
     66        def_type_error(signed_byte_16)
     67        def_type_error(signed_byte_8)   
     68        def_type_error(base_character)
     69        def_type_error(bit)
     70        def_type_error(unsigned_byte_24)
     71        def_type_error(u64)
     72        def_type_error(s64)
     73        def_type_error(unsigned_byte_56)
     74        def_type_error(simple_array_double_float_2d)
     75        def_type_error(simple_array_single_float_2d)
     76        def_type_error(mod_char_code_limit)
     77        def_type_error(array_2d)
     78        def_type_error(array_3d)
     79        def_type_error(array_t)
     80        def_type_error(array_bit)
     81        def_type_error(array_s8)
     82        def_type_error(array_u8)
     83        def_type_error(array_s16)
     84        def_type_error(array_u16)
     85        def_type_error(array_s32)
     86        def_type_error(array_u32)
     87        def_type_error(array_s64)
     88        def_type_error(array_u64)
     89        def_type_error(array_fixnum)
     90        def_type_error(array_single_float)
     91        def_type_error(array_double_float)
     92        def_type_error(array_char)
     93        def_type_error(array_t_2d)
     94        def_type_error(array_bit_2d)
     95        def_type_error(array_s8_2d)
     96        def_type_error(array_u8_2d)
     97        def_type_error(array_s16_2d)
     98        def_type_error(array_u16_2d)
     99        def_type_error(array_s32_2d)
     100        def_type_error(array_u32_2d)
     101        def_type_error(array_s64_2d)
     102        def_type_error(array_u64_2d)
     103        def_type_error(array_fixnum_2d)
     104        def_type_error(array_single_float_2d)
     105        def_type_error(array_double_float_2d)
     106        def_type_error(array_char_2d)
     107        def_type_error(simple_array_t_2d)
     108        def_type_error(simple_array_bit_2d)
     109        def_type_error(simple_array_s8_2d)
     110        def_type_error(simple_array_u8_2d)
     111        def_type_error(simple_array_s16_2d)
     112        def_type_error(simple_array_u16_2d)
     113        def_type_error(simple_array_s32_2d)
     114        def_type_error(simple_array_u32_2d)
     115        def_type_error(simple_array_s64_2d)
     116        def_type_error(simple_array_u64_2d)
     117        def_type_error(simple_array_fixnum_2d)
     118        def_type_error(simple_array_char_2d)
    90119       
    91120       

  • trunk/ccl/lisp-kernel/lisp-errors.h

    r1434 r5455  
    4141#define error_cant_call 17
    4242
    43 #define error_type_error 64
    44 #define type_error(n) (error_type_error+(n))
     43#define error_type_error 128
    4544
    46 #define error_object_not_array type_error(0)
    47 #define error_object_not_bignum type_error(1)
    48 #define error_object_not_fixnum type_error(2)
    49 #define error_object_not_character type_error(3)
    50 #define error_object_not_integer type_error(4)
    51 #define error_object_not_list type_error(5)
    52 #define error_object_not_number type_error(6)
    53 #define error_object_not_sequence type_error(7)
    54 #define error_object_not_simple_string type_error(8)
    55 #define error_object_not_simple_vector type_error(9)
    56 #define error_object_not_string type_error(10)
    57 #define error_object_not_symbol type_error(11)
    58 #define error_object_not_macptr type_error(12)
    59 #define error_object_not_real type_error(13)
    60 #define error_object_not_cons type_error(14)
    61 #define error_object_not_unsigned_byte type_error(15)
    62 #define error_object_not_radix type_error(16)
    63 #define error_object_not_float type_error(17)
    64 #define error_object_not_rational type_error(18)
    65 #define error_object_not_ratio type_error(19)
    66 #define error_object_not_short_float type_error(20)
    67 #define error_object_not_double_float type_error(21)
    68 #define error_object_not_complex type_error(22)
    69 #define error_object_not_vector type_error(23)
    70 #define error_object_not_simple_base_string type_error(24)
    71 #define error_object_not_function type_error(25)
    72 #define error_object_not_unsigned_byte_16 type_error(26)
    73 #define error_object_not_unsigned_byte_8 type_error(27)
    74 #define error_object_not_unsigned_byte_32 type_error(28)
    75 #define error_object_not_signed_byte_32 type_error(29)
    76 #define error_object_not_signed_byte_16 type_error(30)
    77 #define error_object_not_signed_byte_8 type_error(31)
    78 #define error_object_not_base_character type_error(32)
    79 #define error_object_not_bit type_error(33)
    80 #define error_object_not_unsigned_byte_24 type_error(34)
    81 #define error_object_not_u64 type_error(35)
    82 #define error_object_not_s64 type_error(36)
    83 #define error_object_not_unsigned_byte_56 type_error(37)
     45typedef enum {
     46  error_object_not_array = error_type_error,
     47  error_object_not_bignum,
     48  error_object_not_fixnum,
     49  error_object_not_character,
     50  error_object_not_integer,
     51  error_object_not_list,
     52  error_object_not_number,
     53  error_object_not_sequence,
     54  error_object_not_simple_string,
     55  error_object_not_simple_vector,
     56  error_object_not_string,
     57  error_object_not_symbol,
     58  error_object_not_macptr,
     59  error_object_not_real,
     60  error_object_not_cons,
     61  error_object_not_unsigned_byte,
     62  error_object_not_radix,
     63  error_object_not_float,
     64  error_object_not_rational,
     65  error_object_not_ratio,
     66  error_object_not_short_float,
     67  error_object_not_double_float,
     68  error_object_not_complex,
     69  error_object_not_vector,
     70  error_object_not_simple_base_string,
     71  error_object_not_function,
     72  error_object_not_unsigned_byte_16,
     73  error_object_not_unsigned_byte_8,
     74  error_object_not_unsigned_byte_32,
     75  error_object_not_signed_byte_32,
     76  error_object_not_signed_byte_16,
     77  error_object_not_signed_byte_8,       
     78  error_object_not_base_character,
     79  error_object_not_bit,
     80  error_object_not_unsigned_byte_24,
     81  error_object_not_u64,
     82  error_object_not_s64,
     83  error_object_not_unsigned_byte_56,
     84  error_object_not_simple_array_double_float_2d,
     85  error_object_not_simple_array_single_float_2d,
     86  error_object_not_mod_char_code_limit,
     87  error_object_not_array_2d,
     88  error_object_not_array_3d,
     89  error_object_not_array_t,
     90  error_object_not_array_bit,
     91  error_object_not_array_s8,
     92  error_object_not_array_u8,
     93  error_object_not_array_s16,
     94  error_object_not_array_u16,
     95  error_object_not_array_s32,
     96  error_object_not_array_u32,
     97  error_object_not_array_s64,
     98  error_object_not_array_u64,
     99  error_object_not_array_fixnum,
     100  error_object_not_array_single_float,
     101  error_object_not_array_double_float,
     102  error_object_not_array_char,
     103  error_object_not_array_t_2d,
     104  error_object_not_array_bit_2d,
     105  error_object_not_array_s8_2d,
     106  error_object_not_array_u8_2d,
     107  error_object_not_array_s16_2d,
     108  error_object_not_array_u16_2d,
     109  error_object_not_array_s32_2d,
     110  error_object_not_array_u32_2d,
     111  error_object_not_array_s64_2d,
     112  error_object_not_array_u64_2d,
     113  error_object_not_array_fixnum_2d,
     114  error_object_not_array_single_float_2d,
     115  error_object_not_array_double_float_2d,
     116  error_object_not_array_char_2d,
     117  error_object_not_simple_array_t_2d,
     118  error_object_not_simple_array_bit_2d,
     119  error_object_not_simple_array_s8_2d,
     120  error_object_not_simple_array_u8_2d,
     121  error_object_not_simple_array_s16_2d,
     122  error_object_not_simple_array_u16_2d,
     123  error_object_not_simple_array_s32_2d,
     124  error_object_not_simple_array_u32_2d,
     125  error_object_not_simple_array_s64_2d,
     126  error_object_not_simple_array_u64_2d,
     127  error_object_not_simple_array_fixnum_2d,
     128  error_object_not_simple_array_char_2d
     129} type_error;
    84130
    85131#define error_FPU_exception_double 1024
Note: See TracChangeset for help on using the changeset viewer.