dynamic native library loading, some inlining changes
[cacao.git] / src / vm / 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 1429 2004-11-02 08:58:26Z jowenn $
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+1);
287         strncpy(tmp, exception, len);
288         tmp[len]='\0';
289
290         /* convert to classname */
291
292         for (i = len - 1; i >= 0; i--) {
293                 if (tmp[i] == '/') tmp[i] = '.';
294         }
295
296         fprintf(stderr, "Exception in thread \"main\" %s", tmp);
297
298         MFREE(tmp, char, len);
299
300         if (strlen(message) > 0)
301                 fprintf(stderr, ": %s", message);
302
303         fprintf(stderr, "\n");
304         fflush(stderr);
305
306         /* good bye! */
307         exit(1);
308 }
309
310
311 #if 1
312 #define CREATENEW_EXCEPTION(ex) \
313     return ex;
314 #else
315 #define CREATENEW_EXCEPTION(ex) \
316         java_objectheader *newEx; \
317         java_objectheader *oldexception=*exceptionptr;\
318         *exceptionptr=0;\
319         newEx=ex;\
320         *exceptionptr=oldexception;\
321         return newEx;
322 #endif
323
324 java_objectheader *new_exception(char *classname)
325 {
326         classinfo *c = class_new(utf_new_char(classname));
327
328         CREATENEW_EXCEPTION(native_new_and_init(c));
329 }
330
331 java_objectheader *new_exception_message(char *classname, char *message)
332 {
333         classinfo *c = class_new(utf_new_char(classname));
334
335         CREATENEW_EXCEPTION(native_new_and_init_string(c, javastring_new_char(message)));
336 }
337
338
339 java_objectheader *new_exception_throwable(char *classname, java_lang_Throwable *throwable)
340 {
341         classinfo *c = class_new(utf_new_char(classname));
342
343         CREATENEW_EXCEPTION(native_new_and_init_throwable(c, throwable));
344 }
345
346
347 java_objectheader *new_exception_utfmessage(char *classname, utf *message)
348 {
349         classinfo *c = class_new(utf_new_char(classname));
350
351         CREATENEW_EXCEPTION(native_new_and_init_string(c, javastring_new(message)));
352 }
353
354
355 java_objectheader *new_exception_javastring(char *classname, java_lang_String *message)
356 {
357         classinfo *c = class_new(utf_new_char(classname));
358
359         CREATENEW_EXCEPTION(native_new_and_init_string(c, message));
360 }
361
362
363 java_objectheader *new_exception_int(char *classname, s4 i)
364 {
365         classinfo *c;
366
367         c = class_new(utf_new_char(classname));
368
369         CREATENEW_EXCEPTION(native_new_and_init_int(c, i));
370 }
371
372
373 /* new_classformaterror ********************************************************
374
375    generates a java.lang.ClassFormatError for the classloader
376
377 *******************************************************************************/
378
379 java_objectheader *new_classformaterror(classinfo *c, char *message, ...)
380 {
381         char msg[MAXLOGTEXT];
382         va_list ap;
383
384         utf_sprint_classname(msg, c->name);
385         sprintf(msg + strlen(msg), " (");
386
387         va_start(ap, message);
388         vsprintf(msg + strlen(msg), message, ap);
389         va_end(ap);
390
391         sprintf(msg + strlen(msg), ")");
392
393         return new_exception_message(string_java_lang_ClassFormatError, msg);
394 }
395
396
397 /* new_unsupportedclassversionerror ********************************************
398
399    generates a java.lang.UnsupportedClassVersionError for the classloader
400
401 *******************************************************************************/
402
403 java_objectheader *new_unsupportedclassversionerror(classinfo *c, char *message, ...)
404 {
405         char msg[MAXLOGTEXT];
406         va_list ap;
407
408         utf_sprint_classname(msg, c->name);
409         sprintf(msg + strlen(msg), " (");
410
411         va_start(ap, message);
412         vsprintf(msg + strlen(msg), message, ap);
413         va_end(ap);
414
415         sprintf(msg + strlen(msg), ")");
416
417         return new_exception_message(string_java_lang_UnsupportedClassVersionError,
418                                                                  msg);
419 }
420
421
422 /* new_verifyerror *************************************************************
423
424    generates a java.lang.VerifyError for the jit compiler
425
426 *******************************************************************************/
427
428 java_objectheader *new_verifyerror(methodinfo *m, char *message)
429 {
430         java_objectheader *o;
431         char *msg;
432         s4 len;
433
434         len = 8 + utf_strlen(m->class->name) +
435                 10 + utf_strlen(m->name) +
436                 13 + utf_strlen(m->descriptor) +
437                 2 + strlen(message) + 1;
438                 
439         msg = MNEW(char, len);
440
441         sprintf(msg, "(class: ");
442         utf_sprint(msg + strlen(msg), m->class->name);
443         sprintf(msg + strlen(msg), ", method: ");
444         utf_sprint(msg + strlen(msg), m->name);
445         sprintf(msg + strlen(msg), ", signature: ");
446         utf_sprint(msg + strlen(msg), m->descriptor);
447         sprintf(msg + strlen(msg), ") %s", message);
448
449         o = new_exception_message(string_java_lang_VerifyError, msg);
450
451         MFREE(msg, u1, len);
452
453         return o;
454 }
455
456
457 /* new_arithmeticexception *****************************************************
458
459    generates a java.lang.ArithmeticException for the jit compiler
460
461 *******************************************************************************/
462
463 java_objectheader *new_arithmeticexception()
464 {
465         java_objectheader *e;
466
467         e = new_exception_message(string_java_lang_ArithmeticException,
468                                                           string_java_lang_ArithmeticException_message);
469
470         if (!e)
471                 return *exceptionptr;
472
473         return e;
474 }
475
476
477 /* new_arrayindexoutofboundsexception ******************************************
478
479    generates a java.lang.ArrayIndexOutOfBoundsException for the jit compiler
480
481 *******************************************************************************/
482
483 java_objectheader *new_arrayindexoutofboundsexception(s4 index)
484 {
485         java_objectheader *e;
486         methodinfo *m;
487         java_lang_String *s;
488
489         /* convert the index into a String, like Sun does */
490
491         m = class_resolveclassmethod(class_java_lang_String,
492                                                                  utf_new_char("valueOf"),
493                                                                  utf_new_char("(I)Ljava/lang/String;"),
494                                                                  class_java_lang_Object,
495                                                                  true);
496
497         if (!m)
498                 return *exceptionptr;
499
500         s = (java_lang_String *) asm_calljavafunction(m,
501                                                                                                   (void *) index,
502                                                                                                   NULL,
503                                                                                                   NULL,
504                                                                                                   NULL);
505
506         if (!s)
507                 return *exceptionptr;
508
509         e = new_exception_javastring(string_java_lang_ArrayIndexOutOfBoundsException,
510                                                                  s);
511
512         if (!e)
513                 return *exceptionptr;
514
515         return e;
516 }
517
518
519 /* new_classcastexception ******************************************************
520
521    generates a java.lang.ClassCastException for the jit compiler
522
523 *******************************************************************************/
524
525 java_objectheader *new_classcastexception()
526 {
527         java_objectheader *e;
528
529         e = new_exception(string_java_lang_ClassCastException);
530
531         if (!e)
532                 return *exceptionptr;
533
534         return e;
535 }
536
537
538 /* new_negativearraysizeexception **********************************************
539
540    generates a java.lang.NegativeArraySizeException for the jit compiler
541
542 *******************************************************************************/
543
544 java_objectheader *new_negativearraysizeexception()
545 {
546         java_objectheader *e;
547
548         e = new_exception(string_java_lang_NegativeArraySizeException);
549
550         if (!e)
551                 return *exceptionptr;
552
553         return e;
554 }
555
556
557 /* new_nullpointerexception ****************************************************
558
559    generates a java.lang.NullPointerException for the jit compiler
560
561 *******************************************************************************/
562
563 java_objectheader *new_nullpointerexception()
564 {
565         java_objectheader *e;
566
567         e = new_exception(string_java_lang_NullPointerException);
568
569         if (!e)
570                 return *exceptionptr;
571
572         return e;
573 }
574
575
576 /*
577  * These are local overrides for various environment variables in Emacs.
578  * Please do not remove this and leave it at the end of the file, where
579  * Emacs will automagically detect them.
580  * ---------------------------------------------------------------------
581  * Local variables:
582  * mode: c
583  * indent-tabs-mode: t
584  * c-basic-offset: 4
585  * tab-width: 4
586  * End:
587  */