Source file `AutoConfig2.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
module EverCrypt_AutoConfig2 = EverCrypt_AutoConfig2_bindings.Bindings(EverCrypt_AutoConfig2_stubs)

open EverCrypt_AutoConfig2
type feature =
  | SHAEXT
  | AES_NI
  | PCLMULQDQ
  | AVX
  | AVX2
  | BMI2
  | ADX
  | SSE
  | MOVBE
  | RDRAND
let init () = everCrypt_AutoConfig2_init ()
let has_feature = function
  | SHAEXT -> everCrypt_AutoConfig2_has_shaext ()
  | AES_NI -> everCrypt_AutoConfig2_has_aesni ()
  | PCLMULQDQ -> everCrypt_AutoConfig2_has_pclmulqdq ()
  | AVX -> everCrypt_AutoConfig2_has_avx ()
  | AVX2 -> everCrypt_AutoConfig2_has_avx2 ()
  | BMI2 -> everCrypt_AutoConfig2_has_bmi2 ()
  | ADX -> everCrypt_AutoConfig2_has_adx ()
  | SSE -> everCrypt_AutoConfig2_has_sse ()
  | MOVBE -> everCrypt_AutoConfig2_has_movbe ()
  | RDRAND -> everCrypt_AutoConfig2_has_rdrand ()

let () = init ()