add java.awt{Graphics.Window} to natheaders
[cacao.git] / exceptions.c
1 /* exceptions.c - exception related functions
2
3    Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4    R. Grafl, A. Krall, C. Kruegel, C. Oates, R. Obermaisser,
5    M. Probst, S. Ring, E. Steiner, C. Thalinger, D. Thuernbeck,
6    P. Tomsich, J. Wenninger
7
8    This file is part of CACAO.
9
10    This program is free software; you can redistribute it and/or
11    modify it under the terms of the GNU General Public License as
12    published by the Free Software Foundation; either version 2, or (at
13    your option) any later version.
14
15    This program is distributed in the hope that it will be useful, but
16    WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18    General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program; if not, write to the Free Software
22    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23    02111-1307, USA.
24
25    Contact: cacao@complang.tuwien.ac.at
26
27    Authors: Christian Thalinger
28
29    $Id: exceptions.c 1332 2004-07-21 15:48:08Z twisti $
30
31 */
32
33
34 #include <string.h>
35 #include <stdarg.h>
36 #include <stdlib.h>
37 #include "asmpart.h"
38 #include "global.h"
39 #include "loader.h"
40 #include "native.h"
41 #include "tables.h"
42 #include "jit/jit.h"
43 #include "toolbox/logging.h"
44 #include "toolbox/memory.h"
45 #include "nat/java_lang_String.h"
46 #include "nat/java_lang_Throwable.h"
47
48
49 /* system exception classes required in cacao */
50
51 classinfo *class_java_lang_Throwable;
52 classinfo *class_java_lang_Exception;
53 classinfo *class_java_lang_Error;
54 classinfo *class_java_lang_OutOfMemoryError;
55
56
57 /* exception/error super class */
58
59 char *string_java_lang_Throwable =
60     "java/lang/Throwable";
61
62 char *string_java_lang_VMThrowable =
63     "java/lang/VMThrowable";
64
65
66 /* specify some exception strings for code generation */
67
68 char *string_java_lang_ArithmeticException =
69     "java/lang/ArithmeticException";
70
71 char *string_java_lang_ArithmeticException_message =
72     "/ by zero";
73
74 char *string_java_lang_ArrayIndexOutOfBoundsException =
75     "java/lang/ArrayIndexOutOfBoundsException";
76
77 char *string_java_lang_ArrayStoreException =
78     "java/lang/ArrayStoreException";
79
80 char *string_java_lang_ClassCastException =
81     "java/lang/ClassCastException";
82
83 char *string_java_lang_ClassNotFoundException =
84         "java/lang/ClassNotFoundException";
85
86 char *string_java_lang_CloneNotSupportedException =
87     "java/lang/CloneNotSupportedException";
88
89 char *string_java_lang_Exception =
90     "java/lang/Exception";
91
92 char *string_java_lang_IllegalArgumentException =
93     "java/lang/IllegalArgumentException";
94
95 char *string_java_lang_IllegalMonitorStateException =
96     "java/lang/IllegalMonitorStateException";
97
98 char *string_java_lang_NegativeArraySizeException =
99     "java/lang/NegativeArraySizeException";
100
101 char *string_java_lang_NoSuchFieldException =
102         "java/lang/NoSuchFieldException";
103
104 char *string_java_lang_NoSuchMethodException =
105         "java/lang/NoSuchMethodException";
106
107 char *string_java_lang_NullPointerException =
108     "java/lang/NullPointerException";
109
110
111 /* specify some error strings for code generation */
112
113 char *string_java_lang_AbstractMethodError =
114     "java/lang/AbstractMethodError";
115
116 char *string_java_lang_ClassCircularityError =
117     "java/lang/ClassCircularityError";
118
119 char *string_java_lang_ClassFormatError =
120     "java/lang/ClassFormatError";
121
122 char *string_java_lang_Error =
123     "java/lang/Error";
124
125 char *string_java_lang_ExceptionInInitializerError =
126     "java/lang/ExceptionInInitializerError";
127
128 char *string_java_lang_IncompatibleClassChangeError =
129     "java/lang/IncompatibleClassChangeError";
130
131 char *string_java_lang_InternalError =
132     "java/lang/InternalError";
133
134 char *string_java_lang_LinkageError =
135     "java/lang/LinkageError";
136
137 char *string_java_lang_NoClassDefFoundError =
138     "java/lang/NoClassDefFoundError";
139
140 char *string_java_lang_NoSuchFieldError =
141         "java/lang/NoSuchFieldError";
142
143 char *string_java_lang_NoSuchMethodError =
144         "java/lang/NoSuchMethodError";
145
146 char *string_java_lang_OutOfMemoryError =
147     "java/lang/OutOfMemoryError";
148
149 char *string_java_lang_VerifyError =
150     "java/lang/VerifyError";
151
152 char *string_java_lang_VirtualMachineError =
153     "java/lang/VirtualMachineError";
154
155
156 /* init_system_exceptions *****************************************************
157
158    load, link and compile exceptions used in the system
159
160 *******************************************************************************/
161
162 void init_system_exceptions()
163 {
164         /* java/lang/Throwable */
165
166         class_java_lang_Throwable =
167                 class_new(utf_new_char(string_java_lang_Throwable));
168         class_load(class_java_lang_Throwable);
169         class_link(class_java_lang_Throwable);
170
171         /* java/lang/Exception */
172
173         class_java_lang_Exception =
174                 class_new(utf_new_char(string_java_lang_Exception));
175         class_load(class_java_lang_Exception);
176         class_link(class_java_lang_Exception);
177
178         /* java/lang/Error */
179
180         class_java_lang_Error =
181                 class_new(utf_new_char(string_java_lang_Error));
182         class_load(class_java_lang_Error);
183         class_link(class_java_lang_Error);
184
185         /* java/lang/OutOfMemoryError */
186
187         class_java_lang_OutOfMemoryError =
188                 class_new(utf_new_char(string_java_lang_OutOfMemoryError));
189         class_load(class_java_lang_OutOfMemoryError);
190         class_link(class_java_lang_OutOfMemoryError);
191 }
192
193
194 static void throw_exception_exit_intern(bool doexit)
195 {
196         java_objectheader *xptr;
197         classinfo *c;
198         methodinfo *pss;
199
200         if (*exceptionptr) {
201                 xptr = *exceptionptr;
202
203                 /* clear exception, because we are calling jit code again */
204                 *exceptionptr = NULL;
205
206                 c = xptr->vftbl->class;
207
208                 pss = class_resolveclassmethod(c,
209                                                                            utf_new_char("printStackTrace"),
210                                                                            utf_new_char("()V"),
211                                                                            class_java_lang_Object,
212                                                                            false);
213
214                 /* print the stacktrace */
215                 if (pss) {
216                         asm_calljavafunction(pss, xptr, NULL, NULL, NULL);
217
218                         /* this normally means, we are EXTREMLY out of memory, but may be
219                            any other exception */
220                         if (*exceptionptr) {
221                                 utf_fprint_classname(stderr, c->name);
222                                 fprintf(stderr, "\n");
223                         }
224
225                 } else {
226                         utf_fprint_classname(stderr, c->name);
227                         fprintf(stderr, ": printStackTrace()V not found!\n");
228                 }
229
230                 fflush(stderr);
231
232                 /* good bye! */
233                 if (doexit) {
234                         exit(1);
235                 }
236         }
237 }
238
239
240 void throw_exception()
241 {
242         throw_exception_exit_intern(false);
243 }
244
245
246 void throw_exception_exit()
247 {
248         throw_exception_exit_intern(true);
249 }
250
251
252 void throw_main_exception()
253 {
254         fprintf(stderr, "Exception in thread \"main\" ");
255         fflush(stderr);
256
257         throw_exception_exit_intern(false);
258 }
259
260
261 void throw_main_exception_exit()
262 {
263         fprintf(stderr, "Exception in thread \"main\" ");
264         fflush(stderr);
265
266         throw_exception_exit_intern(true);
267 }
268
269
270 void throw_cacao_exception_exit(char *exception, char *message)
271 {
272         s4 i;
273         char *tmp;
274         s4 len;
275
276         len = strlen(exception);
277         tmp = MNEW(char, len);
278         strncpy(tmp, exception, len);
279
280         /* convert to classname */
281
282         for (i = len - 1; i >= 0; i--) {
283                 if (tmp[i] == '/') tmp[i] = '.';
284         }
285
286         fprintf(stderr, "Exception in thread \"main\" %s", tmp);
287
288         MFREE(tmp, char, len);
289
290         if (strlen(message) > 0)
291                 fprintf(stderr, ": %s", message);
292
293         fprintf(stderr, "\n");
294         fflush(stderr);
295
296         /* good bye! */
297         exit(1);
298 }
299
300
301 #define CREATENEW_EXCEPTION(ex) \
302         java_objectheader *newEx; \
303         java_objectheader *oldexception=*exceptionptr;\
304         *exceptionptr=0;\
305         newEx=ex;\
306         *exceptionptr=oldexception;\
307         return newEx;
308
309 java_objectheader *new_exception(char *classname)
310 {
311         classinfo *c = class_new(utf_new_char(classname));
312
313         CREATENEW_EXCEPTION(native_new_and_init(c));
314 }
315
316 java_objectheader *new_exception_message(char *classname, char *message)
317 {
318         classinfo *c = class_new(utf_new_char(classname));
319
320         CREATENEW_EXCEPTION(native_new_and_init_string(c, javastring_new_char(message)));
321 }
322
323
324 java_objectheader *new_exception_throwable(char *classname, java_lang_Throwable *throwable)
325 {
326         classinfo *c = class_new(utf_new_char(classname));
327
328         CREATENEW_EXCEPTION(native_new_and_init_throwable(c, throwable));
329 }
330
331
332 java_objectheader *new_exception_utfmessage(char *classname, utf *message)
333 {
334         classinfo *c = class_new(utf_new_char(classname));
335
336         CREATENEW_EXCEPTION(native_new_and_init_string(c, javastring_new(message)));
337 }
338
339
340 java_objectheader *new_exception_javastring(char *classname, java_lang_String *message)
341 {
342         classinfo *c = class_new(utf_new_char(classname));
343
344         CREATENEW_EXCEPTION(native_new_and_init_string(c, message));
345 }
346
347
348 java_objectheader *new_exception_int(char *classname, s4 i)
349 {
350         classinfo *c = class_new(utf_new_char(classname));
351
352         CREATENEW_EXCEPTION(native_new_and_init_int(c, i));
353 }
354
355
356 /* new_classformaterror ********************************************************
357
358    generates an java.lang.ClassFormatError for the classloader
359
360 *******************************************************************************/
361
362 java_objectheader *new_classformaterror(classinfo *c, char *message, ...)
363 {
364         char msg[MAXLOGTEXT];
365         va_list ap;
366
367         utf_sprint_classname(msg, c->name);
368         sprintf(msg + strlen(msg), " (");
369
370         va_start(ap, message);
371         vsprintf(msg + strlen(msg), message, ap);
372         va_end(ap);
373
374         sprintf(msg + strlen(msg), ")");
375
376         return new_exception_message(string_java_lang_ClassFormatError, msg);
377 }
378
379
380 /* new_verifyerror *************************************************************
381
382    generates an java.lang.VerifyError for the jit compiler
383
384 *******************************************************************************/
385
386 java_objectheader *new_verifyerror(methodinfo *m, char *message)
387 {
388         java_objectheader *o;
389         char *msg;
390         s4 len;
391
392         len = 8 + utf_strlen(m->class->name) +
393                 10 + utf_strlen(m->name) +
394                 13 + utf_strlen(m->descriptor) +
395                 2 + strlen(message) + 1;
396                 
397         msg = MNEW(char, len);
398
399         sprintf(msg, "(class: ");
400         utf_sprint(msg + strlen(msg), m->class->name);
401         sprintf(msg + strlen(msg), ", method: ");
402         utf_sprint(msg + strlen(msg), m->name);
403         sprintf(msg + strlen(msg), ", signature: ");
404         utf_sprint(msg + strlen(msg), m->descriptor);
405         sprintf(msg + strlen(msg), ") %s", message);
406
407         o = new_exception_message(string_java_lang_VerifyError, msg);
408
409         MFREE(msg, u1, len);
410
411         return o;
412 }
413
414
415 /*
416  * These are local overrides for various environment variables in Emacs.
417  * Please do not remove this and leave it at the end of the file, where
418  * Emacs will automagically detect them.
419  * ---------------------------------------------------------------------
420  * Local variables:
421  * mode: c
422  * indent-tabs-mode: t
423  * c-basic-offset: 4
424  * tab-width: 4
425  * End:
426  */