source: release/1.9/source/lisp-kernel/errors.s @ 16083

Last change on this file since 16083 was 13337, checked in by plkrueger, 9 years ago

Don't change the m4 quoting characters from their defaults (`').
(On the ARM, square brackets are used to denote memory operands, curly
braces surround register lists, and multicharacter quoting delimeters
look funny ...)

Some versions (at least) of m4 are confused by quoting characters in
comments, so try to refrain from using contractions ...

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 7.0 KB
Line 
1/*   Copyright (C) 2009 Clozure Associates */
2/*   Copyright (C) 1994-2001 Digitool, Inc */
3/*   This file is part of Clozure CL. */
4 
5/*   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public */
6/*   License , known as the LLGPL and distributed with Clozure CL as the */
7/*   file "LICENSE".  The LLGPL consists of a preamble and the LGPL, */
8/*   which is distributed with Clozure CL as the file "LGPL".  Where these */
9/*   conflict, the preamble takes precedence. */
10 
11/*   Clozure CL is referenced in the preamble as the "LIBRARY." */
12 
13/*   The LLGPL is also available online at */
14/*   http://opensource.franz.com/preamble.html */
15
16
17
18       
19
20error_reg_errnum = 0            /* "real" (typically negative) error number is in RB */
21error_udf = 1
22error_udf_call = 2
23error_throw_tag_missing = 3
24error_alloc_failed = 4
25error_stack_overflow = 5
26error_excised_function_call = 6
27error_too_many_values = 7
28error_propagate_suspend = 10
29error_interrupt = 11
30error_suspend = 12
31error_suspend_all = 13
32error_resume = 14
33error_resume_all = 15                                   
34error_cant_call = 17
35       
36error_type_error = 128
37
38define(`__type_error_counter__',128)
39define(`def_type_error',`
40error_object_not_$1 = __type_error_counter__
41        define(`__type_error_counter__',eval(__type_error_counter__+1))')
42
43        def_type_error(array)
44        def_type_error(bignum)
45        def_type_error(fixnum)
46        def_type_error(character)
47        def_type_error(integer)
48        def_type_error(list)
49        def_type_error(number)
50        def_type_error(sequence)
51        def_type_error(simple_string)
52        def_type_error(simple_vector)
53        def_type_error(string)
54        def_type_error(symbol)
55        def_type_error(macptr)
56        def_type_error(real)
57        def_type_error(cons)
58        def_type_error(unsigned_byte)
59        def_type_error(radix)
60        def_type_error(float)
61        def_type_error(rational)
62        def_type_error(ratio)
63        def_type_error(short_float)
64        def_type_error(double_float)
65        def_type_error(complex)
66        def_type_error(vector)
67        def_type_error(simple_base_string)
68        def_type_error(function)
69        def_type_error(unsigned_byte_16)
70        def_type_error(unsigned_byte_8)
71        def_type_error(unsigned_byte_32)
72        def_type_error(signed_byte_32)
73        def_type_error(signed_byte_16)
74        def_type_error(signed_byte_8)   
75        def_type_error(base_character)
76        def_type_error(bit)
77        def_type_error(unsigned_byte_24)
78        def_type_error(u64)
79        def_type_error(s64)
80        def_type_error(unsigned_byte_56)
81        def_type_error(simple_array_double_float_2d)
82        def_type_error(simple_array_single_float_2d)
83        def_type_error(mod_char_code_limit)
84        def_type_error(array_2d)
85        def_type_error(array_3d)
86        def_type_error(array_t)
87        def_type_error(array_bit)
88        def_type_error(array_s8)
89        def_type_error(array_u8)
90        def_type_error(array_s16)
91        def_type_error(array_u16)
92        def_type_error(array_s32)
93        def_type_error(array_u32)
94        def_type_error(array_s64)
95        def_type_error(array_u64)
96        def_type_error(array_fixnum)
97        def_type_error(array_single_float)
98        def_type_error(array_double_float)
99        def_type_error(array_char)
100        def_type_error(array_t_2d)
101        def_type_error(array_bit_2d)
102        def_type_error(array_s8_2d)
103        def_type_error(array_u8_2d)
104        def_type_error(array_s16_2d)
105        def_type_error(array_u16_2d)
106        def_type_error(array_s32_2d)
107        def_type_error(array_u32_2d)
108        def_type_error(array_s64_2d)
109        def_type_error(array_u64_2d)
110        def_type_error(array_fixnum_2d)
111        def_type_error(array_single_float_2d)
112        def_type_error(array_double_float_2d)
113        def_type_error(array_char_2d)
114        def_type_error(simple_array_t_2d)
115        def_type_error(simple_array_bit_2d)
116        def_type_error(simple_array_s8_2d)
117        def_type_error(simple_array_u8_2d)
118        def_type_error(simple_array_s16_2d)
119        def_type_error(simple_array_u16_2d)
120        def_type_error(simple_array_s32_2d)
121        def_type_error(simple_array_u32_2d)
122        def_type_error(simple_array_s64_2d)
123        def_type_error(simple_array_u64_2d)
124        def_type_error(simple_array_fixnum_2d)
125        def_type_error(simple_array_char_2d)
126        def_type_error(array_t_3d)
127        def_type_error(array_bit_3d)
128        def_type_error(array_s8_3d)
129        def_type_error(array_u8_3d)
130        def_type_error(array_s16_3d)
131        def_type_error(array_u16_3d)
132        def_type_error(array_s32_3d)
133        def_type_error(array_u32_3d)
134        def_type_error(array_s64_3d)
135        def_type_error(array_u64_3d)
136        def_type_error(array_fixnum_3d)
137        def_type_error(array_single_float_3d)
138        def_type_error(array_double_float_3d)
139        def_type_error(array_char_3d)
140        def_type_error(simple_array_t_3d)
141        def_type_error(simple_array_bit_3d)
142        def_type_error(simple_array_s8_3d)
143        def_type_error(simple_array_u8_3d)
144        def_type_error(simple_array_s16_3d)
145        def_type_error(simple_array_u16_3d)
146        def_type_error(simple_array_s32_3d)
147        def_type_error(simple_array_u32_3d)
148        def_type_error(simple_array_s64_3d)
149        def_type_error(simple_array_u64_3d)
150        def_type_error(simple_array_fixnum_3d)
151        def_type_error(simple_array_single_float_3d)
152        def_type_error(simple_array_double_float_3d)
153        def_type_error(simple_array_char_3d)
154        def_type_error(vector_t)
155        def_type_error(bit_vector)
156        def_type_error(vector_s8)
157        def_type_error(vector_u8)
158        def_type_error(vector_s16)
159        def_type_error(vector_u16)
160        def_type_error(vector_s32)
161        def_type_error(vector_u32)
162        def_type_error(vector_s64)
163        def_type_error(vector_u64)
164        def_type_error(vector_fixnum)
165        def_type_error(vector_single_float)
166        def_type_error(vector_double_float)
167       
168       
169       
170/* These are the "old" error constants that %ERR-DISP understands */
171
172define(`deferr',`
173$1 = $2<<fixnumshift')
174
175
176        deferr(XVUNBND,1)
177        deferr(XBADVEC,2)
178        deferr(XTMINPS,3)
179        deferr(XNEINPS,4)
180        deferr(XWRNGINP,5)
181        deferr(XFUNBND,6)
182        deferr(XSETBADVEC,7)
183        deferr(XCOERCE,8)
184        deferr(XWRONGSYS,9)
185        deferr(XNOMEM,10)
186        deferr(XOPENIMAGE,11)
187        deferr(XNOTFUN,13)
188        deferr(XNOCTAG,33)
189        deferr(XNOFPU,36)
190        deferr(XBADTOK,49)
191        deferr(XFLOVFL,64)
192        deferr(XDIVZRO,66)
193        deferr(XFLDZRO,66)
194        deferr(XMEMFULL,76)
195        deferr(XARRLIMIT,77)
196        deferr(XSTKOVER,75)
197        deferr(XFLEXC,98)
198        deferr(XMFULL,-41)
199
200        deferr(XARROOB,112)
201        deferr(XCONST,115)
202        deferr(XNOSPREAD,120)
203        deferr(XFASLVERS,121)
204        deferr(XNOTFASL,122)
205        deferr(XUDFCALL,123)
206        deferr(XWRONGIMAGE,124)
207
208        deferr(XNOPKG,130)
209        deferr(XBADFASL,132)
210        deferr(XSYMACC,135)
211        deferr(XEXPRTC,136)
212        deferr(XNDIMS,148)
213        deferr(XNARGS,150)
214        deferr(XBADKEYS,153)
215        deferr(XWRONGTYPE,157)
216        deferr(XBADSTRUCT,158)
217        deferr(XSTRUCTBOUNDS,159)
218        deferr(XCALLNOTLAMBDA,160)
219        deferr(XTEMPFLT,161)
220        deferr(XCALLTOOMANY,167)
221        deferr(XCALLTOOFEW,168)
222        deferr(XCALLNOMATCH,169)
223        deferr(XIMPROPERLIST,170)
224        deferr(XNOFILLPTR,171)
225        deferr(XMALADJUST,172)
226        deferr(XACCESSNTH,173)
227        deferr(XNOTELT,174)
228        deferr(XSGEXHAUSTED,175)
229        deferr(XSGNARGS,176)
230        deferr(XTOOMANYVALUES,177)
231        deferr(XSYMNOBIND,178)
232        deferr(XFOREIGNEXCEPTION,200)
233
234error_FPU_exception_double = 1024
235error_FPU_exception_short = 1025
236error_memory_full = 2048
Note: See TracBrowser for help on using the repository browser.