11 #include "interp/interp.h"
16 wasm_restore_context (void)
18 g_error ("wasm_restore_context");
22 wasm_call_filter (void)
24 g_error ("wasm_call_filter");
28 wasm_throw_exception (void)
30 g_error ("wasm_throw_exception");
34 wasm_rethrow_exception (void)
36 g_error ("wasm_rethrow_exception");
40 wasm_throw_corlib_exception (void)
42 g_error ("wasm_throw_corlib_exception");
46 type_to_c (MonoType *t)
53 case MONO_TYPE_BOOLEAN:
64 case MONO_TYPE_SZARRAY:
66 case MONO_TYPE_OBJECT:
67 case MONO_TYPE_STRING:
79 case MONO_TYPE_VALUETYPE:
80 if (t->data.klass->enumtype) {
81 t = mono_class_enum_basetype (t->data.klass);
86 case MONO_TYPE_GENERICINST:
87 if (t->data.klass->valuetype)
91 g_warning ("CANT TRANSLATE %s", mono_type_full_name (t));
96 #if SIZEOF_VOID_P == 4
97 #define FIDX(x) ((x) * 2)
103 wasm_invoke_v (void *target_func, InterpMethodArguments *margs)
105 void (*func)(void) = target_func;
110 wasm_invoke_vi (void *target_func, InterpMethodArguments *margs)
112 void (*func)(gpointer a) = target_func;
113 func (margs->iargs [0]);
117 wasm_invoke_vii (void *target_func, InterpMethodArguments *margs)
119 void (*func)(gpointer a, gpointer b) = target_func;
120 func (margs->iargs [0], margs->iargs [1]);
124 wasm_invoke_viii (void *target_func, InterpMethodArguments *margs)
126 void (*func)(gpointer a, gpointer b, gpointer c) = target_func;
127 func (margs->iargs [0], margs->iargs [1], margs->iargs [2]);
131 wasm_invoke_viiii (void *target_func, InterpMethodArguments *margs)
133 void (*func)(gpointer a, gpointer b, gpointer c, gpointer d) = target_func;
134 func (margs->iargs [0], margs->iargs [1], margs->iargs [2], margs->iargs [3]);
138 wasm_invoke_viiiii (void *target_func, InterpMethodArguments *margs)
140 void (*func)(gpointer a, gpointer b, gpointer c, gpointer d, gpointer e) = target_func;
141 func (margs->iargs [0], margs->iargs [1], margs->iargs [2], margs->iargs [3], margs->iargs [4]);
145 wasm_invoke_viiiiii (void *target_func, InterpMethodArguments *margs)
147 void (*func)(gpointer a, gpointer b, gpointer c, gpointer d, gpointer e, gpointer f) = target_func;
148 func (margs->iargs [0], margs->iargs [1], margs->iargs [2], margs->iargs [3], margs->iargs [4], margs->iargs [5]);
152 wasm_invoke_i (void *target_func, InterpMethodArguments *margs)
154 int (*func)(void) = target_func;
156 *(int*)margs->retval = res;
160 wasm_invoke_ii (void *target_func, InterpMethodArguments *margs)
162 int (*func)(gpointer a) = target_func;
163 int res = func (margs->iargs [0]);
164 *(int*)margs->retval = res;
168 wasm_invoke_iii (void *target_func, InterpMethodArguments *margs)
170 int (*func)(gpointer a, gpointer b) = target_func;
171 int res = func (margs->iargs [0], margs->iargs [1]);
172 *(int*)margs->retval = res;
176 wasm_invoke_iiii (void *target_func, InterpMethodArguments *margs)
178 int (*func)(gpointer a, gpointer b, gpointer c) = target_func;
179 int res = func (margs->iargs [0], margs->iargs [1], margs->iargs [2]);
180 *(int*)margs->retval = res;
184 wasm_invoke_iiiii (void *target_func, InterpMethodArguments *margs)
186 int (*func)(gpointer a, gpointer b, gpointer c, gpointer d) = target_func;
187 int res = func (margs->iargs [0], margs->iargs [1], margs->iargs [2], margs->iargs [3]);
188 *(int*)margs->retval = res;
192 wasm_invoke_iiiiii (void *target_func, InterpMethodArguments *margs)
194 int (*func)(gpointer a, gpointer b, gpointer c, gpointer d, gpointer e) = target_func;
195 int res = func (margs->iargs [0], margs->iargs [1], margs->iargs [2], margs->iargs [3], margs->iargs [4]);
196 *(int*)margs->retval = res;
208 wasm_invoke_ll (void *target_func, InterpMethodArguments *margs)
210 gint64 (*func)(gint64 a) = target_func;
213 p.pair.lo = (gint32)margs->iargs [0];
214 p.pair.hi = (gint32)margs->iargs [1];
216 gint64 res = func (p.l);
217 *(gint64*)margs->retval = res;
221 wasm_invoke_li (void *target_func, InterpMethodArguments *margs)
223 gint64 (*func)(gpointer a) = target_func;
224 gint64 res = func (margs->iargs [0]);
225 *(gint64*)margs->retval = res;
229 wasm_invoke_lil (void *target_func, InterpMethodArguments *margs)
231 gint64 (*func)(gpointer a, gint64 b) = target_func;
234 p.pair.lo = (gint32)margs->iargs [1];
235 p.pair.hi = (gint32)margs->iargs [2];
237 gint64 res = func (margs->iargs [0], p.l);
238 *(gint64*)margs->retval = res;
242 wasm_invoke_dd (void *target_func, InterpMethodArguments *margs)
244 double (*func)(double a) = target_func;
246 double res = func (margs->fargs [FIDX (0)]);
247 *(double*)margs->retval = res;
251 wasm_invoke_ddd (void *target_func, InterpMethodArguments *margs)
253 double (*func)(double a, double b) = target_func;
255 double res = func (margs->fargs [FIDX (0)], margs->fargs [FIDX (1)]);
256 *(double*)margs->retval = res;
262 wasm_invoke_vif (void *target_func, InterpMethodArguments *margs)
264 void (*func)(gpointer a, float b) = target_func;
266 func (margs->iargs [0],
267 *(float*)&margs->fargs [FIDX (0)]);
271 wasm_invoke_viff (void *target_func, InterpMethodArguments *margs)
273 void (*func)(gpointer a, float b, float c) = target_func;
275 func (margs->iargs [0],
276 *(float*)&margs->fargs [FIDX (0)],
277 *(float*)&margs->fargs [FIDX (1)]);
281 wasm_invoke_viffff (void *target_func, InterpMethodArguments *margs)
283 void (*func)(gpointer a, float b, float c, float d, float e) = target_func;
285 func (margs->iargs [0],
286 *(float*)&margs->fargs [FIDX (0)],
287 *(float*)&margs->fargs [FIDX (1)],
288 *(float*)&margs->fargs [FIDX (2)],
289 *(float*)&margs->fargs [FIDX (3)]);
293 wasm_invoke_vifffffi (void *target_func, InterpMethodArguments *margs)
295 void (*func)(gpointer a, float b, float c, float d, float e, float f, int g) = target_func;
297 func (margs->iargs [0],
298 *(float*)&margs->fargs [FIDX (0)],
299 *(float*)&margs->fargs [FIDX (1)],
300 *(float*)&margs->fargs [FIDX (2)],
301 *(float*)&margs->fargs [FIDX (3)],
302 *(float*)&margs->fargs [FIDX (4)],
303 *(float*)&margs->iargs [1]);
307 wasm_enter_icall_trampoline (void *target_func, InterpMethodArguments *margs)
309 static char cookie [8];
312 MonoMethodSignature *sig = margs->sig;
314 c_count = sig->param_count + sig->hasthis + 1;
315 cookie [0] = type_to_c (sig->ret);
318 for (int i = 0; i < sig->param_count; ++i)
319 cookie [1 + sig->hasthis + i ] = type_to_c (sig->params [i]);
320 cookie [c_count] = 0;
322 if (!strcmp ("V", cookie))
323 wasm_invoke_v (target_func, margs);
324 else if (!strcmp ("VI", cookie))
325 wasm_invoke_vi (target_func, margs);
326 else if (!strcmp ("VII", cookie))
327 wasm_invoke_vii (target_func, margs);
328 else if (!strcmp ("VIII", cookie))
329 wasm_invoke_viii (target_func, margs);
330 else if (!strcmp ("VIIII", cookie))
331 wasm_invoke_viiii (target_func, margs);
332 else if (!strcmp ("VIIIII", cookie))
333 wasm_invoke_viiiii (target_func, margs);
334 else if (!strcmp ("VIIIIII", cookie))
335 wasm_invoke_viiiiii (target_func, margs);
336 else if (!strcmp ("I", cookie))
337 wasm_invoke_i (target_func, margs);
338 else if (!strcmp ("II", cookie))
339 wasm_invoke_ii (target_func, margs);
340 else if (!strcmp ("III", cookie))
341 wasm_invoke_iii (target_func, margs);
342 else if (!strcmp ("IIII", cookie))
343 wasm_invoke_iiii (target_func, margs);
344 else if (!strcmp ("IIIII", cookie))
345 wasm_invoke_iiiii (target_func, margs);
346 else if (!strcmp ("IIIIII", cookie))
347 wasm_invoke_iiiiii (target_func, margs);
348 else if (!strcmp ("LL", cookie))
349 wasm_invoke_ll (target_func, margs);
350 else if (!strcmp ("LI", cookie))
351 wasm_invoke_li (target_func, margs);
352 else if (!strcmp ("LIL", cookie))
353 wasm_invoke_lil (target_func, margs);
354 else if (!strcmp ("DD", cookie))
355 wasm_invoke_dd (target_func, margs);
356 else if (!strcmp ("DDD", cookie))
357 wasm_invoke_ddd (target_func, margs);
358 else if (!strcmp ("VIF", cookie))
359 wasm_invoke_vif (target_func, margs);
360 else if (!strcmp ("VIFF", cookie))
361 wasm_invoke_viff (target_func, margs);
362 else if (!strcmp ("VIFFFF", cookie))
363 wasm_invoke_viffff (target_func, margs);
364 else if (!strcmp ("VIFFFFFI", cookie))
365 wasm_invoke_vifffffi (target_func, margs);
367 printf ("CANNOT HANDLE COOKIE %s\n", cookie);
373 mono_aot_get_trampoline_full (const char *name, MonoTrampInfo **out_tinfo)
375 gpointer code = NULL;
377 if (!strcmp (name, "restore_context"))
378 code = wasm_restore_context;
379 else if (!strcmp (name, "call_filter"))
380 code = wasm_call_filter;
381 else if (!strcmp (name, "throw_exception"))
382 code = wasm_throw_exception;
383 else if (!strcmp (name, "rethrow_exception"))
384 code = wasm_rethrow_exception;
385 else if (!strcmp (name, "throw_corlib_exception"))
386 code = wasm_throw_corlib_exception;
387 else if (!strcmp (name, "enter_icall_trampoline"))
388 code = wasm_enter_icall_trampoline;
393 MonoTrampInfo *tinfo = g_new0 (MonoTrampInfo, 1);
395 tinfo->code_size = 1;
396 tinfo->name = g_strdup (name);
398 tinfo->unwind_ops = NULL;
399 tinfo->uw_info = NULL;
400 tinfo->uw_info_len = 0;
401 tinfo->owns_uw_info = FALSE;