CAMLprim value uint56_of_uint8(value v) { CAMLparam1(v); CAMLreturn (copy_uint64(((uint64_t)Uint8_val(v)) << 8)); }
CAMLprim value int64_of_uint8(value v) { CAMLparam1(v); CAMLreturn (copy_int64((int64_t)Uint8_val(v))); }
CAMLprim value nativeint_of_uint8(value v) { CAMLparam1(v); CAMLreturn (caml_copy_nativeint((int)Uint8_val(v))); }
CAMLprim value float_of_uint8(value v) { CAMLparam1(v); CAMLreturn (caml_copy_double((double)Uint8_val(v))); }
CAMLprim value caml_SDL_WriteU8(value rwo, Uint8 d) { return Val_size_t( SDL_WriteU8(SDL_RWops_val(rwo), Uint8_val(d))); }