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_l (void *target_func, InterpMethodArguments *margs)
210 gint64 (*func)(void) = target_func;
212 gint64 res = func ();
213 *(gint64*)margs->retval = res;
217 wasm_invoke_ll (void *target_func, InterpMethodArguments *margs)
219 gint64 (*func)(gint64 a) = target_func;
222 p.pair.lo = (gint32)margs->iargs [0];
223 p.pair.hi = (gint32)margs->iargs [1];
225 gint64 res = func (p.l);
226 *(gint64*)margs->retval = res;
230 wasm_invoke_li (void *target_func, InterpMethodArguments *margs)
232 gint64 (*func)(gpointer a) = target_func;
233 gint64 res = func (margs->iargs [0]);
234 *(gint64*)margs->retval = res;
238 wasm_invoke_lil (void *target_func, InterpMethodArguments *margs)
240 gint64 (*func)(gpointer a, gint64 b) = target_func;
243 p.pair.lo = (gint32)margs->iargs [1];
244 p.pair.hi = (gint32)margs->iargs [2];
246 gint64 res = func (margs->iargs [0], p.l);
247 *(gint64*)margs->retval = res;
251 wasm_invoke_dd (void *target_func, InterpMethodArguments *margs)
253 double (*func)(double a) = target_func;
255 double res = func (margs->fargs [FIDX (0)]);
256 *(double*)margs->retval = res;
260 wasm_invoke_ddd (void *target_func, InterpMethodArguments *margs)
262 double (*func)(double a, double b) = target_func;
264 double res = func (margs->fargs [FIDX (0)], margs->fargs [FIDX (1)]);
265 *(double*)margs->retval = res;
271 wasm_invoke_vif (void *target_func, InterpMethodArguments *margs)
273 void (*func)(gpointer a, float b) = target_func;
275 func (margs->iargs [0],
276 *(float*)&margs->fargs [FIDX (0)]);
280 wasm_invoke_viff (void *target_func, InterpMethodArguments *margs)
282 void (*func)(gpointer a, float b, float c) = target_func;
284 func (margs->iargs [0],
285 *(float*)&margs->fargs [FIDX (0)],
286 *(float*)&margs->fargs [FIDX (1)]);
290 wasm_invoke_viffff (void *target_func, InterpMethodArguments *margs)
292 void (*func)(gpointer a, float b, float c, float d, float e) = target_func;
294 func (margs->iargs [0],
295 *(float*)&margs->fargs [FIDX (0)],
296 *(float*)&margs->fargs [FIDX (1)],
297 *(float*)&margs->fargs [FIDX (2)],
298 *(float*)&margs->fargs [FIDX (3)]);
302 wasm_invoke_vifffffi (void *target_func, InterpMethodArguments *margs)
304 void (*func)(gpointer a, float b, float c, float d, float e, float f, int g) = target_func;
306 func (margs->iargs [0],
307 *(float*)&margs->fargs [FIDX (0)],
308 *(float*)&margs->fargs [FIDX (1)],
309 *(float*)&margs->fargs [FIDX (2)],
310 *(float*)&margs->fargs [FIDX (3)],
311 *(float*)&margs->fargs [FIDX (4)],
312 *(float*)&margs->iargs [1]);
316 wasm_enter_icall_trampoline (void *target_func, InterpMethodArguments *margs)
318 static char cookie [8];
321 MonoMethodSignature *sig = margs->sig;
323 c_count = sig->param_count + sig->hasthis + 1;
324 cookie [0] = type_to_c (sig->ret);
327 for (int i = 0; i < sig->param_count; ++i)
328 cookie [1 + sig->hasthis + i ] = type_to_c (sig->params [i]);
329 cookie [c_count] = 0;
331 if (!strcmp ("V", cookie))
332 wasm_invoke_v (target_func, margs);
333 else if (!strcmp ("VI", cookie))
334 wasm_invoke_vi (target_func, margs);
335 else if (!strcmp ("VII", cookie))
336 wasm_invoke_vii (target_func, margs);
337 else if (!strcmp ("VIII", cookie))
338 wasm_invoke_viii (target_func, margs);
339 else if (!strcmp ("VIIII", cookie))
340 wasm_invoke_viiii (target_func, margs);
341 else if (!strcmp ("VIIIII", cookie))
342 wasm_invoke_viiiii (target_func, margs);
343 else if (!strcmp ("VIIIIII", cookie))
344 wasm_invoke_viiiiii (target_func, margs);
345 else if (!strcmp ("I", cookie))
346 wasm_invoke_i (target_func, margs);
347 else if (!strcmp ("II", cookie))
348 wasm_invoke_ii (target_func, margs);
349 else if (!strcmp ("III", cookie))
350 wasm_invoke_iii (target_func, margs);
351 else if (!strcmp ("IIII", cookie))
352 wasm_invoke_iiii (target_func, margs);
353 else if (!strcmp ("IIIII", cookie))
354 wasm_invoke_iiiii (target_func, margs);
355 else if (!strcmp ("IIIIII", cookie))
356 wasm_invoke_iiiiii (target_func, margs);
357 else if (!strcmp ("L", cookie))
358 wasm_invoke_l (target_func, margs);
359 else if (!strcmp ("LL", cookie))
360 wasm_invoke_ll (target_func, margs);
361 else if (!strcmp ("LI", cookie))
362 wasm_invoke_li (target_func, margs);
363 else if (!strcmp ("LIL", cookie))
364 wasm_invoke_lil (target_func, margs);
365 else if (!strcmp ("DD", cookie))
366 wasm_invoke_dd (target_func, margs);
367 else if (!strcmp ("DDD", cookie))
368 wasm_invoke_ddd (target_func, margs);
369 else if (!strcmp ("VIF", cookie))
370 wasm_invoke_vif (target_func, margs);
371 else if (!strcmp ("VIFF", cookie))
372 wasm_invoke_viff (target_func, margs);
373 else if (!strcmp ("VIFFFF", cookie))
374 wasm_invoke_viffff (target_func, margs);
375 else if (!strcmp ("VIFFFFFI", cookie))
376 wasm_invoke_vifffffi (target_func, margs);
378 printf ("CANNOT HANDLE COOKIE %s\n", cookie);
384 mono_aot_get_trampoline_full (const char *name, MonoTrampInfo **out_tinfo)
386 gpointer code = NULL;
388 if (!strcmp (name, "restore_context"))
389 code = wasm_restore_context;
390 else if (!strcmp (name, "call_filter"))
391 code = wasm_call_filter;
392 else if (!strcmp (name, "throw_exception"))
393 code = wasm_throw_exception;
394 else if (!strcmp (name, "rethrow_exception"))
395 code = wasm_rethrow_exception;
396 else if (!strcmp (name, "throw_corlib_exception"))
397 code = wasm_throw_corlib_exception;
398 else if (!strcmp (name, "enter_icall_trampoline"))
399 code = wasm_enter_icall_trampoline;
404 MonoTrampInfo *tinfo = g_new0 (MonoTrampInfo, 1);
406 tinfo->code_size = 1;
407 tinfo->name = g_strdup (name);
409 tinfo->unwind_ops = NULL;
410 tinfo->uw_info = NULL;
411 tinfo->uw_info_len = 0;
412 tinfo->owns_uw_info = FALSE;