forked from jatovm/jato
/
class.c
131 lines (106 loc) · 3.17 KB
/
class.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
/*
* Copyright (c) 2008 Saeed Siam
*
* This file is released under the GPL version 2 with the following
* clarification and special exception:
*
* Linking this library statically or dynamically with other modules is
* making a combined work based on this library. Thus, the terms and
* conditions of the GNU General Public License cover the whole
* combination.
*
* As a special exception, the copyright holders of this library give you
* permission to link this library with independent modules to produce an
* executable, regardless of the license terms of these independent
* modules, and to copy and distribute the resulting executable under terms
* of your choice, provided that you also meet, for each linked independent
* module, the terms and conditions of the license of that module. An
* independent module is a module which is not derived from or based on
* this library. If you modify this library, you may extend this exception
* to your version of the library, but you are not obligated to do so. If
* you do not wish to do so, delete this exception statement from your
* version.
*
* Please refer to the file LICENSE for details.
*/
#include <jit/exception.h>
#include <jit/compiler.h>
#include <vm/string.h>
#include <vm/die.h>
#include <vm/vm.h>
#include <stdlib.h>
#include <errno.h>
typedef void (*exception_init_fn)(struct object *, struct object *);
struct object *new_exception(char *class_name, char *message)
{
struct object *message_str;
exception_init_fn init;
struct methodblock *mb;
struct object *obj;
Class *e_class;
e_class = findSystemClass(class_name);
if (!e_class)
return NULL;
obj = allocObject(e_class);
if (!obj)
return NULL;
if (message == NULL)
message_str = NULL;
else
message_str = Cstr2String(message);
mb = lookupMethod(e_class, "<init>", "(Ljava/lang/String;)V");
if (!mb)
die("%s: constructor not found for class %s\n",
__func__, class_name);
init = method_trampoline_ptr(mb);
init(obj, message_str);
return obj;
}
unsigned long is_object_instance_of(struct object *obj, struct object *type)
{
if (!obj)
return 0;
return isInstanceOf(type, obj->class);
}
void check_array(struct object *obj, unsigned int index)
{
struct classblock *cb = CLASS_CB(obj->class);
if (!IS_ARRAY(cb))
abort();
if (index >= ARRAY_LEN(obj))
abort();
}
void check_cast(struct object *obj, struct object *type)
{
struct string *str;
int err;
if (!obj || isInstanceOf(type, obj->class))
return;
if (exception_occurred())
goto throw;
str = alloc_str();
if (str == NULL) {
err = -ENOMEM;
goto error;
}
err = str_append(str, slash2dots(CLASS_CB(obj->class)->name));
if (err)
goto error;
err = str_append(str, " cannot be cast to ");
if (err)
goto error;
err = str_append(str, slash2dots(CLASS_CB(type)->name));
if (err)
goto error;
signal_new_exception("java/lang/ClassCastException", str->value);
free_str(str);
throw:
throw_from_native(2 * sizeof(struct object *));
return;
error:
if (str)
free_str(str);
if (err == -ENOMEM) /* TODO: throw OutOfMemoryError */
die("%s: out of memory", __func__);
die("%s: error %d", __func__, err);
}