package fast_bitvector

  1. Overview
  2. Docs

Source file bitops.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# 1 "src/bitops.intrinsic.ml"
(* Selected bitops.intrinsic.int.ml because v0.17.1 < v0.18 *)

let [@inline always] count_set_bits_32 x =
  Ocaml_intrinsics_kernel.Int32.count_set_bits x

let [@inline always] count_set_bits_64 x =
  Ocaml_intrinsics_kernel.Int64.count_set_bits x

let [@inline always] count_trailing_zeros_32 x =
  Ocaml_intrinsics_kernel.Int32.count_trailing_zeros_nonzero_arg x

let [@inline always] count_trailing_zeros_64 x =
  Ocaml_intrinsics_kernel.Int64.count_trailing_zeros_nonzero_arg x

let [@inline always] count_leading_zeros_32 x =
  Ocaml_intrinsics_kernel.Int32.count_leading_zeros_nonzero_arg x

let [@inline always] count_leading_zeros_64 x =
  Ocaml_intrinsics_kernel.Int64.count_leading_zeros_nonzero_arg x