stricter warnings; remove dead code

Author: c-cube

src/data/CCBV.ml

@@ -3,7 +3,6 @@ let width_ = 8
 (* Helper functions *)
 let[@inline] get_ b i = Char.code (Bytes.get b i)
 let[@inline] unsafe_get_ b i = Char.code (Bytes.unsafe_get b i)
-let[@inline] set_ b i v = Bytes.set b i (Char.unsafe_chr v)
 let[@inline] unsafe_set_ b i v = Bytes.unsafe_set b i (Char.unsafe_chr v)
 let[@inline] mod_ n = n land 0b111
 let[@inline] div_ n = n lsr 3

src/data/CCFun_vec.ml

@@ -42,15 +42,13 @@ module A = struct
   let length = Array.length
   let iteri = Array.iteri
   let iter = Array.iter
-  let fold = Array.fold_left
   let map = Array.map
 
   let iteri_rev f a =
     for i = length a - 1 downto 0 do
       f i a.(i)
     done
 
-  let create () = [||]
   let empty = [||]
   let is_empty a = length a = 0
   let return x = [| x |]
@@ -72,21 +70,6 @@ module A = struct
     if n = 0 then invalid_arg "A.pop";
     Array.sub a 0 (n - 1)
 
-  let append a b =
-    let n_a = length a in
-    let n_b = length b in
-    if n_a + n_b > max_length then invalid_arg "A.append";
-    if n_a = 0 then
-      b
-    else if n_b = 0 then
-      a
-    else (
-      let arr = Array.make (n_a + n_b) a.(0) in
-      Array.blit a 0 arr 0 n_a;
-      Array.blit b 0 arr n_a n_b;
-      arr
-    )
-
   let set ~mut a i x =
     if i < 0 || i > length a || i >= max_length then invalid_arg "A.set";
     if i = length a then (
@@ -306,11 +289,6 @@ let to_gen m =
 
 let choose m = to_gen m ()
 
-let choose_exn m =
-  match choose m with
-  | None -> raise Not_found
-  | Some (k, v) -> k, v
-
 let pp ppv out m =
   let first = ref true in
   iter m ~f:(fun v ->

src/dune

@@ -1,6 +1,6 @@
 (env
  (_
-  (flags :standard -warn-error -a+8 -w -32-70 -w +a-4-32-40-42-44-70
+  (flags :standard -warn-error -a+8 -w -32-70 -w +a-4-40-42-44-70
          -color always -safe-string -strict-sequence)
   (ocamlopt_flags :standard -O3 -unbox-closures -unbox-closures-factor 20
     -inline 100)))