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
|
#include <stdio.h>
#include <caml/mlvalues.h>
#include <caml/memory.h>
#include <caml/callback.h>
value caml_to_c_native (value a1, value a2, value a3, value a4, value a5,
value a6, value a7, value a8, value a9, value a10,
value a11)
{
CAMLparam0 ();
long l;
printf ("[C] Enter caml_to_c\n");
static const value* c_to_caml_closure = NULL;
if (!c_to_caml_closure)
c_to_caml_closure = caml_named_value("c_to_caml");
l = Long_val (a1) + Long_val (a2) + Long_val (a3) + Long_val (a4)
+ Long_val (a5) + Long_val (a6) + Long_val (a7) + Long_val (a8)
+ Long_val (a9) + Long_val (a10) + Long_val (a11);
printf ("[C] Call c_to_caml\n");
fflush(stdout);
caml_callback(*c_to_caml_closure, Val_long(l));
printf ("[C] Return from c_to_caml\n");
printf ("[C] Leave caml_to_c\n");
fflush(stdout);
CAMLreturn (Val_unit);
}
value caml_to_c_bytecode (value * argv, int argn) {
return caml_to_c_native (argv[0], argv[1], argv[2], argv[3], argv[4],
argv[5], argv[6], argv[7], argv[8], argv[9],
argv[10]);
}
|
