way more warnings

_oasis

@@ -7,7 +7,7 @@ License:     LGPL-2.0 with OCaml linking exception
 Plugins:     META (0.4), DevFiles (0.4)
 AlphaFeatures: compiled_setup_ml, ocamlbuild_more_args
 BuildTools: ocamlbuild
-XOCamlbuildExtraArgs: "-cflags '-w +9+27+32 -warn-error +a'"
+XOCamlbuildExtraArgs: "-cflags '-w +a-40-42-44-3-50-4-48 -warn-error +1..49-40-42-44-3-4-48'"
 
 Library re
   Path:       lib

lib/re.ml

@@ -141,8 +141,8 @@ let unknown_state =
 let mk_state ncol ((idx, _, _, _, _) as desc) =
   let break_state =
     match Automata.status desc with
-      Automata.Running -> false
-    | _       -> true
+    | Running          -> false
+    | Failed | Match _ -> true
   in
   { idx = if break_state then break else idx;
     real_idx = idx;
@@ -399,8 +399,6 @@ let trans_set cache cm s =
 
 (****)
 
-type sem_status = Compulsory | Indicative
-
 type regexp =
     Set of Cset.t
   | Sequence of regexp list
@@ -1095,7 +1093,7 @@ let split_full_gen ?(pos=0) ?len re s =
   let pos0 = pos in
   let state = ref `Idle in
   let i = ref pos and pos = ref pos in
-  let rec next () = match !state with
+  let next () = match !state with
   | `Idle when !pos >= limit ->
       if !i < limit then (
         let sub = String.sub s !i (limit - !i) in

lib_test/re_match.ml

@@ -50,7 +50,7 @@ let check_phone cnt must_print line =
   with Not_found -> ()
 
 let n = if Array.length Sys.argv > 1 then int_of_string Sys.argv.(1) else 1;;
-for i = 2 to n do
+for _ = 2 to n do
   List.iter (check_phone (ref 1) false) phones
 done;
 List.iter (check_phone (ref 1) true) phones

setup.ml

@@ -1,7 +1,7 @@
 (* setup.ml generated for the first time by OASIS v0.2.1~alpha1 *)
 
 (* OASIS_START *)
-(* DO NOT EDIT (digest: 1a7d56b9d38bd32839106fc00d2c439b) *)
+(* DO NOT EDIT (digest: 3d5f357a250699ab9ba55d59bd7b672b) *)
 (*
    Regenerated by OASIS v0.4.5
    Visit http://oasis.forge.ocamlcore.org for more information and
@@ -6802,7 +6802,11 @@ open OASISTypes;;
 let setup_t =
   {
      BaseSetup.configure = InternalConfigurePlugin.configure;
-     build = OCamlbuildPlugin.build ["-cflags '-w +9+27+32 -warn-error +a'"];
+     build =
+       OCamlbuildPlugin.build
+         [
+            "-cflags '-w +a-40-42-44-3-50-4-48 -warn-error +1..49-40-42-44-3-4-48'"
+         ];
      test =
        [
           ("re_test_re",
@@ -7760,14 +7764,14 @@ let setup_t =
        };
      oasis_fn = Some "_oasis";
      oasis_version = "0.4.5";
-     oasis_digest = Some "OÐÄ7oúö_òA-\156Ï¡«\t";
+     oasis_digest = Some "\143\006\140_¦|\128ô\006¼M¹e\159\149\137";
      oasis_exec = None;
      oasis_setup_args = [];
      setup_update = false
   };;
 
 let setup () = BaseSetup.setup setup_t;;
 
-# 7772 "setup.ml"
+# 7776 "setup.ml"
 (* OASIS_STOP *)
 let () = setup ();;