hacl-star-raw 0.4.3 · OCaml Package

module CI = Cstubs_internals

val _1_Hacl_Bignum_Convert_bn_from_bytes_be_uint64 : 
  Unsigned.uint32 ->
  bytes CI.ocaml ->
  ('a, 'b) CI.fatptr ->
  unit

val _2_Hacl_Bignum_Convert_bn_to_bytes_be_uint64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  bytes CI.ocaml ->
  unit

val _3_Hacl_Bignum_Lib_bn_get_top_index_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32

val _4_Hacl_Bignum_Lib_bn_get_top_index_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64

val _5_Hacl_Bignum_Addition_bn_sub_eq_len_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint32

val _6_Hacl_Bignum_Addition_bn_sub_eq_len_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint64

val _7_Hacl_Bignum_Addition_bn_add_eq_len_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint32

val _8_Hacl_Bignum_Addition_bn_add_eq_len_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint64

val _9_Hacl_Bignum_Karatsuba_bn_karatsuba_mul_uint32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _10_Hacl_Bignum_Karatsuba_bn_karatsuba_mul_uint64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _11_Hacl_Bignum_Karatsuba_bn_karatsuba_sqr_uint32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _12_Hacl_Bignum_Karatsuba_bn_karatsuba_sqr_uint64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _13_Hacl_Bignum_bn_add_mod_n_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _14_Hacl_Bignum_bn_add_mod_n_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _15_Hacl_Bignum_bn_sub_mod_n_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _16_Hacl_Bignum_bn_sub_mod_n_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _17_Hacl_Bignum_ModInvLimb_mod_inv_uint32 : 
  Unsigned.uint32 ->
  Unsigned.uint32

val _18_Hacl_Bignum_ModInvLimb_mod_inv_uint64 : 
  Unsigned.uint64 ->
  Unsigned.uint64

val _19_Hacl_Bignum_Montgomery_bn_check_modulus_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32

val _20_Hacl_Bignum_Montgomery_bn_precomp_r2_mod_n_u32 : 
  Unsigned.uint32 ->
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  unit

val _21_Hacl_Bignum_Montgomery_bn_mont_reduction_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _22_Hacl_Bignum_Montgomery_bn_to_mont_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _23_Hacl_Bignum_Montgomery_bn_from_mont_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _24_Hacl_Bignum_Montgomery_bn_mont_mul_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _25_Hacl_Bignum_Montgomery_bn_mont_sqr_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _26_Hacl_Bignum_Montgomery_bn_check_modulus_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64

val _27_Hacl_Bignum_Montgomery_bn_precomp_r2_mod_n_u64 : 
  Unsigned.uint32 ->
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  unit

val _28_Hacl_Bignum_Montgomery_bn_mont_reduction_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _29_Hacl_Bignum_Montgomery_bn_to_mont_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _30_Hacl_Bignum_Montgomery_bn_from_mont_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _31_Hacl_Bignum_Montgomery_bn_mont_mul_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _32_Hacl_Bignum_Montgomery_bn_mont_sqr_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  unit

val _33_Hacl_Bignum_Exponentiation_bn_check_mod_exp_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint32

val _34_Hacl_Bignum_Exponentiation_bn_mod_exp_vartime_precomp_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint32 ->
  ('g, 'h) CI.fatptr ->
  ('i, 'j) CI.fatptr ->
  unit

val _35_Hacl_Bignum_Exponentiation_bn_mod_exp_consttime_precomp_u32 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint32 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint32 ->
  ('g, 'h) CI.fatptr ->
  ('i, 'j) CI.fatptr ->
  unit

val _36_Hacl_Bignum_Exponentiation_bn_mod_exp_vartime_u32 : 
  Unsigned.uint32 ->
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _37_Hacl_Bignum_Exponentiation_bn_mod_exp_consttime_u32 : 
  Unsigned.uint32 ->
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _38_Hacl_Bignum_Exponentiation_bn_check_mod_exp_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint64

val _39_Hacl_Bignum_Exponentiation_bn_mod_exp_vartime_precomp_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint32 ->
  ('g, 'h) CI.fatptr ->
  ('i, 'j) CI.fatptr ->
  unit

val _40_Hacl_Bignum_Exponentiation_bn_mod_exp_consttime_precomp_u64 : 
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  Unsigned.uint64 ->
  ('c, 'd) CI.fatptr ->
  ('e, 'f) CI.fatptr ->
  Unsigned.uint32 ->
  ('g, 'h) CI.fatptr ->
  ('i, 'j) CI.fatptr ->
  unit

val _41_Hacl_Bignum_Exponentiation_bn_mod_exp_vartime_u64 : 
  Unsigned.uint32 ->
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

val _42_Hacl_Bignum_Exponentiation_bn_mod_exp_consttime_u64 : 
  Unsigned.uint32 ->
  Unsigned.uint32 ->
  ('a, 'b) CI.fatptr ->
  ('c, 'd) CI.fatptr ->
  Unsigned.uint32 ->
  ('e, 'f) CI.fatptr ->
  ('g, 'h) CI.fatptr ->
  unit

type !'a result = 'a

type !'a return = 'a

type !'a1 fn =

| Returns : 'a CI.typ -> 'a return fn
| Function : 'a0 CI.typ * 'b fn -> ('a0 -> 'b) fn

val map_result : ('a -> 'b) -> 'a -> 'b

val returning : 'a CI.typ -> 'a return fn

val (@->) : 'a CI.typ -> 'b fn -> ('a -> 'b) fn

val foreign : string -> ('a -> 'b) fn -> 'a -> 'b

val foreign_value : string -> 'a Ctypes.typ -> 'a Ctypes.ptr

package hacl-star-raw