source: branches/working-0711/ccl/lisp-kernel/errors.s @ 9957

Last change on this file since 9957 was 9957, checked in by gb, 12 years ago

From trunk: define uuo errors for trap-based suspend/resume stuff.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 6.5 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       
154       
155/* These are the "old" error constants that %ERR-DISP understands */
156
157define([deferr],[
158$1 = $2<<fixnumshift])
159
160
161        deferr(XVUNBND,1)
162        deferr(XBADVEC,2)
163        deferr(XTMINPS,3)
164        deferr(XNEINPS,4)
165        deferr(XWRNGINP,5)
166        deferr(XFUNBND,6)
167        deferr(XSETBADVEC,7)
168        deferr(XCOERCE,8)
169        deferr(XWRONGSYS,9)
170        deferr(XNOMEM,10)
171        deferr(XOPENIMAGE,11)
172        deferr(XNOTFUN,13)
173        deferr(XNOCTAG,33)
174        deferr(XNOFPU,36)
175        deferr(XBADTOK,49)
176        deferr(XFLOVFL,64)
177        deferr(XDIVZRO,66)
178        deferr(XFLDZRO,66)
179        deferr(XMEMFULL,76)
180        deferr(XARRLIMIT,77)
181        deferr(XSTKOVER,75)
182        deferr(XFLEXC,98)
183        deferr(XMFULL,-41)
184
185        deferr(XARROOB,112)
186        deferr(XCONST,115)
187        deferr(XNOSPREAD,120)
188        deferr(XFASLVERS,121)
189        deferr(XNOTFASL,122)
190        deferr(XUDFCALL,123)
191        deferr(XWRONGIMAGE,124)
192
193        deferr(XNOPKG,130)
194        deferr(XBADFASL,132)
195        deferr(XSYMACC,135)
196        deferr(XEXPRTC,136)
197        deferr(XNDIMS,148)
198        deferr(XNARGS,150)
199        deferr(XBADKEYS,153)
200        deferr(XWRONGTYPE,157)
201        deferr(XBADSTRUCT,158)
202        deferr(XSTRUCTBOUNDS,159)
203        deferr(XCALLNOTLAMBDA,160)
204        deferr(XTEMPFLT,161)
205        deferr(XCALLTOOMANY,167)
206        deferr(XCALLTOOFEW,168)
207        deferr(XCALLNOMATCH,169)
208        deferr(XIMPROPERLIST,170)
209        deferr(XNOFILLPTR,171)
210        deferr(XMALADJUST,172)
211        deferr(XACCESSNTH,173)
212        deferr(XNOTELT,174)
213        deferr(XSGEXHAUSTED,175)
214        deferr(XSGNARGS,176)
215        deferr(XTOOMANYVALUES,177)
216        deferr(XSYMNOBIND,178)
217        deferr(XFOREIGNEXCEPTION,200)
218
219error_FPU_exception_double = 1024
220error_FPU_exception_short = 1025
221error_memory_full = 2048
Note: See TracBrowser for help on using the repository browser.