CAMLprim value nativeint_of_int8(value v) { CAMLparam1(v); CAMLreturn (caml_copy_nativeint((int)Int8_val(v))); }
CAMLprim value uint40_of_int8(value v) { CAMLparam1(v); CAMLreturn (copy_uint64(((uint64_t)Int8_val(v)) << 24)); }
CAMLprim value int56_of_int8(value v) { CAMLparam1(v); CAMLreturn (copy_int64(((int64_t)Int8_val(v)) << 8)); }
CAMLprim value uint128_of_int8(value v) { CAMLparam1(v); CAMLreturn (copy_uint128((__uint128_t)Int8_val(v))); }
CAMLprim value float_of_int8(value v) { CAMLparam1(v); CAMLreturn (caml_copy_double((double)Int8_val(v))); }
CAMLprim value int32_of_int8(value v) { CAMLparam1(v); CAMLreturn (copy_int32((int32_t)Int8_val(v))); }