Esempio n. 1
0
CAMLprim value
nativeint_of_int16(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_nativeint((int)Int16_val(v)));
}
Esempio n. 2
0
CAMLprim value
uint40_of_int16(value v)
{
  CAMLparam1(v);
  CAMLreturn (copy_uint64(((uint64_t)Int16_val(v)) << 24));
}
Esempio n. 3
0
CAMLprim value
int56_of_int16(value v)
{
  CAMLparam1(v);
  CAMLreturn (copy_int64(((int64_t)Int16_val(v)) << 8));
}
Esempio n. 4
0
CAMLprim value
uint128_of_int16(value v)
{
  CAMLparam1(v);
  CAMLreturn (copy_uint128((__uint128_t)Int16_val(v)));
}
Esempio n. 5
0
CAMLprim value
float_of_int16(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_double((double)Int16_val(v)));
}
Esempio n. 6
0
CAMLprim value
int8_of_int16(value v)
{
  CAMLparam1(v);
  CAMLreturn (copy_int8((int8_t)Int16_val(v)));
}