Ejemplo n.º 1
0
CAMLprim value
uint56_of_uint8(value v)
{
  CAMLparam1(v);
  CAMLreturn (copy_uint64(((uint64_t)Uint8_val(v)) << 8));
}
Ejemplo n.º 2
0
CAMLprim value
int64_of_uint8(value v)
{
  CAMLparam1(v);
  CAMLreturn (copy_int64((int64_t)Uint8_val(v)));
}
Ejemplo n.º 3
0
CAMLprim value
nativeint_of_uint8(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_nativeint((int)Uint8_val(v)));
}
Ejemplo n.º 4
0
CAMLprim value
float_of_uint8(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_double((double)Uint8_val(v)));
}
Ejemplo n.º 5
0
CAMLprim value
caml_SDL_WriteU8(value rwo, Uint8 d)
{
    return Val_size_t(
        SDL_WriteU8(SDL_RWops_val(rwo), Uint8_val(d)));
}