Merge remote-tracking branch 'origin/master' into parser_fix

1 files changed, 0 insertions, 33 deletions

diff --git a/checklink/Bitstring_utils.ml b/checklink/Bitstring_utils.ml
deleted file mode 100644
index 3218f898..00000000
--- a/checklink/Bitstring_utils.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(** Note that a bitstring is a triple (string * int * int), where the string
-    contains the contents (the last char is filled up with zeros if necessary),
-    the firts int gives the first bit to consider, and the second int gives the
-    bit length of the considered bitstring.
-*)
-type bitstring = Bitstring.bitstring
-
-(** Checks whether a given number of bits of a bitstring are zeroed. The
-    bitstring may be longer.
-    @param size number of bits to check
-*)
-
-let is_zeros (bs: bitstring) (size: int): bool =
-  Bitstring.bitstring_length bs >= size
-  && Bitstring.is_zeroes_bitstring (Bitstring.subbitstring bs 0 size)
-
-(*
-
-let rec is_zeros (bs: bitstring) (size: int): bool =
-  size = 0 ||
-  if size >= 64
-  then (
-    bitmatch bs with
-    | { 0L : 64 : int ; rest : -1 : bitstring } ->
-        is_zeros rest (size - 64)
-    | { _ } -> false
-  )
-  else (
-    bitmatch bs with
-    | { 0L : size : int } -> true
-    | { _ } -> false
-  )
-*)