static value caml_gr_wait_allocate_result(int mouse_x, int mouse_y, int button, int keypressed, int key) { return caml_alloc_5(0, Val_int(mouse_x), Val_int(grwindow.height - 1 - mouse_y), Val_bool(button), Val_bool(keypressed), Val_int(key & 0xFF)); }
static value caml_gr_wait_allocate_result(int mouse_x, int mouse_y, int button, int keypressed, int key) { CAMLparam0(); CAMLlocal1(res); res = caml_alloc_5(0, Val_int(mouse_x), Val_int(mouse_y == -1 ? -1 : Wcvt(mouse_y)), Val_bool(button), Val_bool(keypressed), Val_int(key & 0xFF)); CAMLreturn (res); }