make sure threadobject->tid has always a non-zero value
[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 1410 2004-08-17 13:01:24Z 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_IndexOutOfBoundsException =
99     "java/lang/IndexOutOfBoundsException";
100
101 char *string_java_lang_InterruptedException =
102     "java/lang/InterruptedException";
103
104 char *string_java_lang_NegativeArraySizeException =
105     "java/lang/NegativeArraySizeException";
106
107 char *string_java_lang_NoSuchFieldException =
108         "java/lang/NoSuchFieldException";
109
110 char *string_java_lang_NoSuchMethodException =
111         "java/lang/NoSuchMethodException";
112
113 char *string_java_lang_NullPointerException =
114     "java/lang/NullPointerException";
115
116
117 /* specify some error strings for code generation */
118
119 char *string_java_lang_AbstractMethodError =
120     "java/lang/AbstractMethodError";
121
122 char *string_java_lang_ClassCircularityError =
123     "java/lang/ClassCircularityError";
124
125 char *string_java_lang_ClassFormatError =
126     "java/lang/ClassFormatError";
127
128 char *string_java_lang_Error =
129     "java/lang/Error";
130
131 char *string_java_lang_ExceptionInInitializerError =
132     "java/lang/ExceptionInInitializerError";
133
134 char *string_java_lang_IncompatibleClassChangeError =
135     "java/lang/IncompatibleClassChangeError";
136
137 char *string_java_lang_InternalError =
138     "java/lang/InternalError";
139
140 char *string_java_lang_LinkageError =
141     "java/lang/LinkageError";
142
143 char *string_java_lang_NoClassDefFoundError =
144     "java/lang/NoClassDefFoundError";
145
146 char *string_java_lang_NoSuchFieldError =
147         "java/lang/NoSuchFieldError";
148
149 char *string_java_lang_NoSuchMethodError =
150         "java/lang/NoSuchMethodError";
151
152 char *string_java_lang_OutOfMemoryError =
153     "java/lang/OutOfMemoryError";
154
155 char *string_java_lang_UnsupportedClassVersionError =
156     "java/lang/UnsupportedClassVersionError";
157
158 char *string_java_lang_VerifyError =
159     "java/lang/VerifyError";
160
161 char *string_java_lang_VirtualMachineError =
162     "java/lang/VirtualMachineError";
163
164
165 /* init_system_exceptions *****************************************************
166
167    load, link and compile exceptions used in the system
168
169 *******************************************************************************/
170
171 void init_system_exceptions()
172 {
173         /* java/lang/Throwable */
174
175         class_java_lang_Throwable =
176                 class_new(utf_new_char(string_java_lang_Throwable));
177         class_load(class_java_lang_Throwable);
178         class_link(class_java_lang_Throwable);
179
180         /* java/lang/Exception */
181
182         class_java_lang_Exception =
183                 class_new(utf_new_char(string_java_lang_Exception));
184         class_load(class_java_lang_Exception);
185         class_link(class_java_lang_Exception);
186
187         /* java/lang/Error */
188
189         class_java_lang_Error =
190                 class_new(utf_new_char(string_java_lang_Error));
191         class_load(class_java_lang_Error);
192         class_link(class_java_lang_Error);
193
194         /* java/lang/OutOfMemoryError */
195
196         class_java_lang_OutOfMemoryError =
197                 class_new(utf_new_char(string_java_lang_OutOfMemoryError));
198         class_load(class_java_lang_OutOfMemoryError);
199         class_link(class_java_lang_OutOfMemoryError);
200 }
201
202
203 static void throw_exception_exit_intern(bool doexit)
204 {
205         java_objectheader *xptr;
206         classinfo *c;
207         methodinfo *pss;
208
209         if (*exceptionptr) {
210                 xptr = *exceptionptr;
211
212                 /* clear exception, because we are calling jit code again */
213                 *exceptionptr = NULL;
214
215                 c = xptr->vftbl->class;
216
217                 pss = class_resolveclassmethod(c,
218                                                                            utf_new_char("printStackTrace"),
219                                                                            utf_new_char("()V"),
220                                                                            class_java_lang_Object,
221                                                                            false);
222
223                 /* print the stacktrace */
224                 if (pss) {
225                         asm_calljavafunction(pss, xptr, NULL, NULL, NULL);
226
227                         /* this normally means, we are EXTREMLY out of memory, but may be
228                            any other exception */
229                         if (*exceptionptr) {
230                                 utf_fprint_classname(stderr, c->name);
231                                 fprintf(stderr, "\n");
232                         }
233
234                 } else {
235                         utf_fprint_classname(stderr, c->name);
236                         fprintf(stderr, ": printStackTrace()V not found!\n");
237                 }
238
239                 fflush(stderr);
240
241                 /* good bye! */
242                 if (doexit) {
243                         exit(1);
244                 }
245         }
246 }
247
248
249 void throw_exception()
250 {
251         throw_exception_exit_intern(false);
252 }
253
254
255 void throw_exception_exit()
256 {
257         throw_exception_exit_intern(true);
258 }
259
260
261 void throw_main_exception()
262 {
263         fprintf(stderr, "Exception in thread \"main\" ");
264         fflush(stderr);
265
266         throw_exception_exit_intern(false);
267 }
268
269
270 void throw_main_exception_exit()
271 {
272         fprintf(stderr, "Exception in thread \"main\" ");
273         fflush(stderr);
274
275         throw_exception_exit_intern(true);
276 }
277
278
279 void throw_cacao_exception_exit(char *exception, char *message)
280 {
281         s4 i;
282         char *tmp;
283         s4 len;
284
285         len = strlen(exception);
286         tmp = MNEW(char, len);
287         strncpy(tmp, exception, len);
288
289         /* convert to classname */
290
291         for (i = len - 1; i >= 0; i--) {
292                 if (tmp[i] == '/') tmp[i] = '.';
293         }
294
295         fprintf(stderr, "Exception in thread \"main\" %s", tmp);
296
297         MFREE(tmp, char, len);
298
299         if (strlen(message) > 0)
300                 fprintf(stderr, ": %s", message);
301
302         fprintf(stderr, "\n");
303         fflush(stderr);
304
305         /* good bye! */
306         exit(1);
307 }
308
309
310 #if 1
311 #define CREATENEW_EXCEPTION(ex) \
312     return ex;
313 #else
314 #define CREATENEW_EXCEPTION(ex) \
315         java_objectheader *newEx; \
316         java_objectheader *oldexception=*exceptionptr;\
317         *exceptionptr=0;\
318         newEx=ex;\
319         *exceptionptr=oldexception;\
320         return newEx;
321 #endif
322
323 java_objectheader *new_exception(char *classname)
324 {
325         classinfo *c = class_new(utf_new_char(classname));
326
327         CREATENEW_EXCEPTION(native_new_and_init(c));
328 }
329
330 java_objectheader *new_exception_message(char *classname, char *message)
331 {
332         classinfo *c = class_new(utf_new_char(classname));
333
334         CREATENEW_EXCEPTION(native_new_and_init_string(c, javastring_new_char(message)));
335 }
336
337
338 java_objectheader *new_exception_throwable(char *classname, java_lang_Throwable *throwable)
339 {
340         classinfo *c = class_new(utf_new_char(classname));
341
342         CREATENEW_EXCEPTION(native_new_and_init_throwable(c, throwable));
343 }
344
345
346 java_objectheader *new_exception_utfmessage(char *classname, utf *message)
347 {
348         classinfo *c = class_new(utf_new_char(classname));
349
350         CREATENEW_EXCEPTION(native_new_and_init_string(c, javastring_new(message)));
351 }
352
353
354 java_objectheader *new_exception_javastring(char *classname, java_lang_String *message)
355 {
356         classinfo *c = class_new(utf_new_char(classname));
357
358         CREATENEW_EXCEPTION(native_new_and_init_string(c, message));
359 }
360
361
362 java_objectheader *new_exception_int(char *classname, s4 i)
363 {
364         classinfo *c;
365
366         c = class_new(utf_new_char(classname));
367
368         CREATENEW_EXCEPTION(native_new_and_init_int(c, i));
369 }
370
371
372 /* new_classformaterror ********************************************************
373
374    generates a java.lang.ClassFormatError for the classloader
375
376 *******************************************************************************/
377
378 java_objectheader *new_classformaterror(classinfo *c, char *message, ...)
379 {
380         char msg[MAXLOGTEXT];
381         va_list ap;
382
383         utf_sprint_classname(msg, c->name);
384         sprintf(msg + strlen(msg), " (");
385
386         va_start(ap, message);
387         vsprintf(msg + strlen(msg), message, ap);
388         va_end(ap);
389
390         sprintf(msg + strlen(msg), ")");
391
392         return new_exception_message(string_java_lang_ClassFormatError, msg);
393 }
394
395
396 /* new_unsupportedclassversionerror ********************************************
397
398    generates a java.lang.UnsupportedClassVersionError for the classloader
399
400 *******************************************************************************/
401
402 java_objectheader *new_unsupportedclassversionerror(classinfo *c, char *message, ...)
403 {
404         char msg[MAXLOGTEXT];
405         va_list ap;
406
407         utf_sprint_classname(msg, c->name);
408         sprintf(msg + strlen(msg), " (");
409
410         va_start(ap, message);
411         vsprintf(msg + strlen(msg), message, ap);
412         va_end(ap);
413
414         sprintf(msg + strlen(msg), ")");
415
416         return new_exception_message(string_java_lang_UnsupportedClassVersionError,
417                                                                  msg);
418 }
419
420
421 /* new_verifyerror *************************************************************
422
423    generates a java.lang.VerifyError for the jit compiler
424
425 *******************************************************************************/
426
427 java_objectheader *new_verifyerror(methodinfo *m, char *message)
428 {
429         java_objectheader *o;
430         char *msg;
431         s4 len;
432
433         len = 8 + utf_strlen(m->class->name) +
434                 10 + utf_strlen(m->name) +
435                 13 + utf_strlen(m->descriptor) +
436                 2 + strlen(message) + 1;
437                 
438         msg = MNEW(char, len);
439
440         sprintf(msg, "(class: ");
441         utf_sprint(msg + strlen(msg), m->class->name);
442         sprintf(msg + strlen(msg), ", method: ");
443         utf_sprint(msg + strlen(msg), m->name);
444         sprintf(msg + strlen(msg), ", signature: ");
445         utf_sprint(msg + strlen(msg), m->descriptor);
446         sprintf(msg + strlen(msg), ") %s", message);
447
448         o = new_exception_message(string_java_lang_VerifyError, msg);
449
450         MFREE(msg, u1, len);
451
452         return o;
453 }
454
455
456 /* new_arithmeticexception *****************************************************
457
458    generates a java.lang.ArithmeticException for the jit compiler
459
460 *******************************************************************************/
461
462 java_objectheader *new_arithmeticexception()
463 {
464         java_objectheader *e;
465
466         e = new_exception_message(string_java_lang_ArithmeticException,
467                                                           string_java_lang_ArithmeticException_message);
468
469         if (!e)
470                 return *exceptionptr;
471
472         return e;
473 }
474
475
476 /* new_arrayindexoutofboundsexception ******************************************
477
478    generates a java.lang.ArrayIndexOutOfBoundsException for the jit compiler
479
480 *******************************************************************************/
481
482 java_objectheader *new_arrayindexoutofboundsexception(s4 index)
483 {
484         java_objectheader *e;
485         methodinfo *m;
486         java_lang_String *s;
487
488         /* convert the index into a String, like Sun does */
489
490         m = class_resolveclassmethod(class_java_lang_String,
491                                                                  utf_new_char("valueOf"),
492                                                                  utf_new_char("(I)Ljava/lang/String;"),
493                                                                  class_java_lang_Object,
494                                                                  true);
495
496         if (!m)
497                 return *exceptionptr;
498
499         s = (java_lang_String *) asm_calljavafunction(m,
500                                                                                                   (void *) index,
501                                                                                                   NULL,
502                                                                                                   NULL,
503                                                                                                   NULL);
504
505         if (!s)
506                 return *exceptionptr;
507
508         e = new_exception_javastring(string_java_lang_ArrayIndexOutOfBoundsException,
509                                                                  s);
510
511         if (!e)
512                 return *exceptionptr;
513
514         return e;
515 }
516
517
518 /* new_classcastexception ******************************************************
519
520    generates a java.lang.ClassCastException for the jit compiler
521
522 *******************************************************************************/
523
524 java_objectheader *new_classcastexception()
525 {
526         java_objectheader *e;
527
528         e = new_exception(string_java_lang_ClassCastException);
529
530         if (!e)
531                 return *exceptionptr;
532
533         return e;
534 }
535
536
537 /* new_negativearraysizeexception **********************************************
538
539    generates a java.lang.NegativeArraySizeException for the jit compiler
540
541 *******************************************************************************/
542
543 java_objectheader *new_negativearraysizeexception()
544 {
545         java_objectheader *e;
546
547         e = new_exception(string_java_lang_NegativeArraySizeException);
548
549         if (!e)
550                 return *exceptionptr;
551
552         return e;
553 }
554
555
556 /* new_nullpointerexception ****************************************************
557
558    generates a java.lang.NullPointerException for the jit compiler
559
560 *******************************************************************************/
561
562 java_objectheader *new_nullpointerexception()
563 {
564         java_objectheader *e;
565
566         e = new_exception(string_java_lang_NullPointerException);
567
568         if (!e)
569                 return *exceptionptr;
570
571         return e;
572 }
573
574
575 /*
576  * These are local overrides for various environment variables in Emacs.
577  * Please do not remove this and leave it at the end of the file, where
578  * Emacs will automagically detect them.
579  * ---------------------------------------------------------------------
580  * Local variables:
581  * mode: c
582  * indent-tabs-mode: t
583  * c-basic-offset: 4
584  * tab-width: 4
585  * End:
586  */