C++ (Cpp) Int128_val Exemples

Exemple #1

Fichier : uint40_conv.c Projet : aziem/ocaml-stdint

CAMLprim value
uint40_of_int128(value v)
{
  CAMLparam1(v);
#ifdef HAVE_INT128
  CAMLreturn (copy_uint64(((uint64_t)Int128_val(v)) << 24));
#else
  failwith("unimplemented");
  CAMLreturn(Val_unit);
#endif
}

Exemple #2

Fichier : nativeint_conv.c Projet : aziem/ocaml-stdint

CAMLprim value
nativeint_of_int128(value v)
{
  CAMLparam1(v);
#ifdef HAVE_INT128
  CAMLreturn (caml_copy_nativeint((int)Int128_val(v)));
#else
  failwith("unimplemented");
  CAMLreturn(Val_unit);
#endif
}

Exemple #3

Fichier : nativeint_conv.c Projet : mwweissmann/ocaml-uint

CAMLprim value
nativeint_of_int128(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_nativeint((int)Int128_val(v)));
}

Exemple #4

Fichier : uint128_conv.c Projet : mwweissmann/ocaml-uint

CAMLprim value
uint128_of_int128(value v)
{
  CAMLparam1(v);
  CAMLreturn (copy_uint128((__uint128_t)Int128_val(v)));
}

Exemple #5

Fichier : float_conv.c Projet : mwweissmann/ocaml-uint

CAMLprim value
float_of_int128(value v)
{
  CAMLparam1(v);
  CAMLreturn (caml_copy_double((double)Int128_val(v)));
}