clean up warnings

Author: bobzhang

lib/4.06.1/unstable/all_ounit_tests.ml

@@ -11712,9 +11712,6 @@ type t =
  | Wildcard_arg_to_constant_constr (* 28 *)
  | Eol_in_string (* 29 *)
  | Duplicate_definitions of string * string * string * string (* 30 *)
- 
- | Multiple_definition of string * string * string (* 31 *)
- 
  | Unused_value_declaration of string (* 32 *)
  | Unused_open of string (* 33 *)
  | Unused_type_declaration of string (* 34 *)
@@ -11734,23 +11731,16 @@ type t =
  | Eliminated_optional_arguments of string list (* 48 *)
  | No_cmi_file of string * string option (* 49 *)
  | Bad_docstring of bool (* 50 *)
- 
- | Expect_tailcall (* 51 *)
- 
  | Fragile_literal_pattern (* 52 *)
  | Misplaced_attribute of string (* 53 *)
  | Duplicated_attribute of string (* 54 *)
  | Inlining_impossible of string (* 55 *)
  | Unreachable_case (* 56 *)
  | Ambiguous_pattern of string list (* 57 *)
- 
- | No_cmx_file of string (* 58 *)
- 
  | Assignment_to_non_mutable_value (* 59 *)
  | Unused_module of string (* 60 *)
  | Unboxable_type_in_prim_decl of string (* 61 *)
  | Constraint_on_gadt (* 62 *)
-
  | Bs_unused_attribute of string (* 101 *)
  | Bs_polymorphic_comparison (* 102 *)
  | Bs_ffi_warning of string (* 103 *)
@@ -11760,7 +11750,6 @@ type t =
  | Bs_integer_literal_overflow (* 107 *)
  | Bs_uninterpreted_delimiters of string (* 108 *)
  | Bs_toplevel_expression_unit (* 109 *)
- 
 ;;
 
 val parse_options : bool -> string -> unit;;
@@ -11864,9 +11853,6 @@ type t =
  | Wildcard_arg_to_constant_constr (* 28 *)
  | Eol_in_string (* 29 *)
  | Duplicate_definitions of string * string * string * string (*30 *)
- 
- | Multiple_definition of string * string * string (* 31 *)
- 
  | Unused_value_declaration of string (* 32 *)
  | Unused_open of string (* 33 *)
  | Unused_type_declaration of string (* 34 *)
@@ -11886,24 +11872,17 @@ type t =
  | Eliminated_optional_arguments of string list (* 48 *)
  | No_cmi_file of string * string option (* 49 *)
  | Bad_docstring of bool (* 50 *)
- 
- | Expect_tailcall (* 51 *)
- 
  | Fragile_literal_pattern (* 52 *)
  | Misplaced_attribute of string (* 53 *)
  | Duplicated_attribute of string (* 54 *)
  | Inlining_impossible of string (* 55 *)
  | Unreachable_case (* 56 *)
  | Ambiguous_pattern of string list (* 57 *)
- 
- | No_cmx_file of string (* 58 *)
- 
  | Assignment_to_non_mutable_value (* 59 *)
  | Unused_module of string (* 60 *)
  | Unboxable_type_in_prim_decl of string (* 61 *)
  | Constraint_on_gadt (* 62 *)
 
- 
  | Bs_unused_attribute of string (* 101 *)
  | Bs_polymorphic_comparison (* 102 *)
  | Bs_ffi_warning of string (* 103 *)
@@ -11953,9 +11932,6 @@ let number = function
  | Wildcard_arg_to_constant_constr -> 28
  | Eol_in_string -> 29
  | Duplicate_definitions _ -> 30
- 
- | Multiple_definition _ -> 31
- 
  | Unused_value_declaration _ -> 32
  | Unused_open _ -> 33
  | Unused_type_declaration _ -> 34
@@ -11975,24 +11951,16 @@ let number = function
  | Eliminated_optional_arguments _ -> 48
  | No_cmi_file _ -> 49
  | Bad_docstring _ -> 50
- 
- | Expect_tailcall -> 51
- 
  | Fragile_literal_pattern -> 52
  | Misplaced_attribute _ -> 53
  | Duplicated_attribute _ -> 54
  | Inlining_impossible _ -> 55
  | Unreachable_case -> 56
  | Ambiguous_pattern _ -> 57
- 
- | No_cmx_file _ -> 58
- 
  | Assignment_to_non_mutable_value -> 59
  | Unused_module _ -> 60
  | Unboxable_type_in_prim_decl _ -> 61
  | Constraint_on_gadt -> 62
-
- 
  | Bs_unused_attribute _ -> 101
  | Bs_polymorphic_comparison -> 102
  | Bs_ffi_warning _ -> 103
@@ -12002,7 +11970,6 @@ let number = function
  | Bs_integer_literal_overflow -> 107
  | Bs_uninterpreted_delimiters _ -> 108
  | Bs_toplevel_expression_unit -> 109
- 
 ;;
 
 let last_warning_number = 109
@@ -12246,12 +12213,6 @@ let message = function
  | Duplicate_definitions (kind, cname, tc1, tc2) ->
  Printf.sprintf "the %s %s is defined in both types %s and %s."
  kind cname tc1 tc2
- 
- | Multiple_definition(modname, file1, file2) ->
- Printf.sprintf
- "files %s and %s both define a module named %s"
- file1 file2 modname
- 
  | Unused_value_declaration v -> "unused value " ^ v ^ "."
  | Unused_open s -> "unused open " ^ s ^ "."
  | Unused_type_declaration s -> "unused type " ^ s ^ "."
@@ -12331,10 +12292,6 @@ let message = function
  | Bad_docstring unattached ->
  if unattached then "unattached documentation comment (ignored)"
  else "ambiguous documentation comment"
- 
- | Expect_tailcall ->
- Printf.sprintf "expected tailcall"
- 
  | Fragile_literal_pattern ->
  Printf.sprintf
  "Code should not depend on the actual values of\n\
@@ -12363,12 +12320,6 @@ let message = function
  "Ambiguous or-pattern variables under guard;\n\
  %s may match different arguments. (See manual section 8.5)"
  msg
- 
- | No_cmx_file name ->
- Printf.sprintf
- "no cmx file was found in path for module %s, \
- and its interface was not compiled with -opaque" name
- 
  | Assignment_to_non_mutable_value ->
  "A potential assignment to a non-mutable value was detected \n\
  in this source file. Such assignments may generate incorrect code \n\

lib/4.06.1/unstable/bspack.ml

@@ -3260,9 +3260,6 @@ type t =
  | Wildcard_arg_to_constant_constr (* 28 *)
  | Eol_in_string (* 29 *)
  | Duplicate_definitions of string * string * string * string (* 30 *)
- 
- | Multiple_definition of string * string * string (* 31 *)
- 
  | Unused_value_declaration of string (* 32 *)
  | Unused_open of string (* 33 *)
  | Unused_type_declaration of string (* 34 *)
@@ -3282,23 +3279,16 @@ type t =
  | Eliminated_optional_arguments of string list (* 48 *)
  | No_cmi_file of string * string option (* 49 *)
  | Bad_docstring of bool (* 50 *)
- 
- | Expect_tailcall (* 51 *)
- 
  | Fragile_literal_pattern (* 52 *)
  | Misplaced_attribute of string (* 53 *)
  | Duplicated_attribute of string (* 54 *)
  | Inlining_impossible of string (* 55 *)
  | Unreachable_case (* 56 *)
  | Ambiguous_pattern of string list (* 57 *)
- 
- | No_cmx_file of string (* 58 *)
- 
  | Assignment_to_non_mutable_value (* 59 *)
  | Unused_module of string (* 60 *)
  | Unboxable_type_in_prim_decl of string (* 61 *)
  | Constraint_on_gadt (* 62 *)
-
  | Bs_unused_attribute of string (* 101 *)
  | Bs_polymorphic_comparison (* 102 *)
  | Bs_ffi_warning of string (* 103 *)
@@ -3308,7 +3298,6 @@ type t =
  | Bs_integer_literal_overflow (* 107 *)
  | Bs_uninterpreted_delimiters of string (* 108 *)
  | Bs_toplevel_expression_unit (* 109 *)
- 
 ;;
 
 val parse_options : bool -> string -> unit;;
@@ -3412,9 +3401,6 @@ type t =
  | Wildcard_arg_to_constant_constr (* 28 *)
  | Eol_in_string (* 29 *)
  | Duplicate_definitions of string * string * string * string (*30 *)
- 
- | Multiple_definition of string * string * string (* 31 *)
- 
  | Unused_value_declaration of string (* 32 *)
  | Unused_open of string (* 33 *)
  | Unused_type_declaration of string (* 34 *)
@@ -3434,24 +3420,17 @@ type t =
  | Eliminated_optional_arguments of string list (* 48 *)
  | No_cmi_file of string * string option (* 49 *)
  | Bad_docstring of bool (* 50 *)
- 
- | Expect_tailcall (* 51 *)
- 
  | Fragile_literal_pattern (* 52 *)
  | Misplaced_attribute of string (* 53 *)
  | Duplicated_attribute of string (* 54 *)
  | Inlining_impossible of string (* 55 *)
  | Unreachable_case (* 56 *)
  | Ambiguous_pattern of string list (* 57 *)
- 
- | No_cmx_file of string (* 58 *)
- 
  | Assignment_to_non_mutable_value (* 59 *)
  | Unused_module of string (* 60 *)
  | Unboxable_type_in_prim_decl of string (* 61 *)
  | Constraint_on_gadt (* 62 *)
 
- 
  | Bs_unused_attribute of string (* 101 *)
  | Bs_polymorphic_comparison (* 102 *)
  | Bs_ffi_warning of string (* 103 *)
@@ -3501,9 +3480,6 @@ let number = function
  | Wildcard_arg_to_constant_constr -> 28
  | Eol_in_string -> 29
  | Duplicate_definitions _ -> 30
- 
- | Multiple_definition _ -> 31
- 
  | Unused_value_declaration _ -> 32
  | Unused_open _ -> 33
  | Unused_type_declaration _ -> 34
@@ -3523,24 +3499,16 @@ let number = function
  | Eliminated_optional_arguments _ -> 48
  | No_cmi_file _ -> 49
  | Bad_docstring _ -> 50
- 
- | Expect_tailcall -> 51
- 
  | Fragile_literal_pattern -> 52
  | Misplaced_attribute _ -> 53
  | Duplicated_attribute _ -> 54
  | Inlining_impossible _ -> 55
  | Unreachable_case -> 56
  | Ambiguous_pattern _ -> 57
- 
- | No_cmx_file _ -> 58
- 
  | Assignment_to_non_mutable_value -> 59
  | Unused_module _ -> 60
  | Unboxable_type_in_prim_decl _ -> 61
  | Constraint_on_gadt -> 62
-
- 
  | Bs_unused_attribute _ -> 101
  | Bs_polymorphic_comparison -> 102
  | Bs_ffi_warning _ -> 103
@@ -3550,7 +3518,6 @@ let number = function
  | Bs_integer_literal_overflow -> 107
  | Bs_uninterpreted_delimiters _ -> 108
  | Bs_toplevel_expression_unit -> 109
- 
 ;;
 
 let last_warning_number = 109
@@ -3794,12 +3761,6 @@ let message = function
  | Duplicate_definitions (kind, cname, tc1, tc2) ->
  Printf.sprintf "the %s %s is defined in both types %s and %s."
  kind cname tc1 tc2
- 
- | Multiple_definition(modname, file1, file2) ->
- Printf.sprintf
- "files %s and %s both define a module named %s"
- file1 file2 modname
- 
  | Unused_value_declaration v -> "unused value " ^ v ^ "."
  | Unused_open s -> "unused open " ^ s ^ "."
  | Unused_type_declaration s -> "unused type " ^ s ^ "."
@@ -3879,10 +3840,6 @@ let message = function
  | Bad_docstring unattached ->
  if unattached then "unattached documentation comment (ignored)"
  else "ambiguous documentation comment"
- 
- | Expect_tailcall ->
- Printf.sprintf "expected tailcall"
- 
  | Fragile_literal_pattern ->
  Printf.sprintf
  "Code should not depend on the actual values of\n\
@@ -3911,12 +3868,6 @@ let message = function
  "Ambiguous or-pattern variables under guard;\n\
  %s may match different arguments. (See manual section 8.5)"
  msg
- 
- | No_cmx_file name ->
- Printf.sprintf
- "no cmx file was found in path for module %s, \
- and its interface was not compiled with -opaque" name
- 
  | Assignment_to_non_mutable_value ->
  "A potential assignment to a non-mutable value was detected \n\
  in this source file. Such assignments may generate incorrect code \n\