source: release/1.3/source/lisp-kernel/errors.s @ 11927

Last change on this file since 11927 was 11927, checked in by rme, 11 years ago

Merge trunk changes r11863 through r11898.

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