Skip to content

Commit 59cc6bf

Browse files
committed
clean up warnings
1 parent 84ca6b7 commit 59cc6bf

File tree

6 files changed

+13
-152
lines changed

6 files changed

+13
-152
lines changed

lib/4.06.1/unstable/all_ounit_tests.ml

Lines changed: 0 additions & 49 deletions
Original file line numberDiff line numberDiff line change
@@ -11712,9 +11712,6 @@ type t =
1171211712
| Wildcard_arg_to_constant_constr (* 28 *)
1171311713
| Eol_in_string (* 29 *)
1171411714
| Duplicate_definitions of string * string * string * string (* 30 *)
11715-
11716-
| Multiple_definition of string * string * string (* 31 *)
11717-
1171811715
| Unused_value_declaration of string (* 32 *)
1171911716
| Unused_open of string (* 33 *)
1172011717
| Unused_type_declaration of string (* 34 *)
@@ -11734,23 +11731,16 @@ type t =
1173411731
| Eliminated_optional_arguments of string list (* 48 *)
1173511732
| No_cmi_file of string * string option (* 49 *)
1173611733
| Bad_docstring of bool (* 50 *)
11737-
11738-
| Expect_tailcall (* 51 *)
11739-
1174011734
| Fragile_literal_pattern (* 52 *)
1174111735
| Misplaced_attribute of string (* 53 *)
1174211736
| Duplicated_attribute of string (* 54 *)
1174311737
| Inlining_impossible of string (* 55 *)
1174411738
| Unreachable_case (* 56 *)
1174511739
| Ambiguous_pattern of string list (* 57 *)
11746-
11747-
| No_cmx_file of string (* 58 *)
11748-
1174911740
| Assignment_to_non_mutable_value (* 59 *)
1175011741
| Unused_module of string (* 60 *)
1175111742
| Unboxable_type_in_prim_decl of string (* 61 *)
1175211743
| Constraint_on_gadt (* 62 *)
11753-
1175411744
| Bs_unused_attribute of string (* 101 *)
1175511745
| Bs_polymorphic_comparison (* 102 *)
1175611746
| Bs_ffi_warning of string (* 103 *)
@@ -11760,7 +11750,6 @@ type t =
1176011750
| Bs_integer_literal_overflow (* 107 *)
1176111751
| Bs_uninterpreted_delimiters of string (* 108 *)
1176211752
| Bs_toplevel_expression_unit (* 109 *)
11763-
1176411753
;;
1176511754

1176611755
val parse_options : bool -> string -> unit;;
@@ -11864,9 +11853,6 @@ type t =
1186411853
| Wildcard_arg_to_constant_constr (* 28 *)
1186511854
| Eol_in_string (* 29 *)
1186611855
| Duplicate_definitions of string * string * string * string (*30 *)
11867-
11868-
| Multiple_definition of string * string * string (* 31 *)
11869-
1187011856
| Unused_value_declaration of string (* 32 *)
1187111857
| Unused_open of string (* 33 *)
1187211858
| Unused_type_declaration of string (* 34 *)
@@ -11886,24 +11872,17 @@ type t =
1188611872
| Eliminated_optional_arguments of string list (* 48 *)
1188711873
| No_cmi_file of string * string option (* 49 *)
1188811874
| Bad_docstring of bool (* 50 *)
11889-
11890-
| Expect_tailcall (* 51 *)
11891-
1189211875
| Fragile_literal_pattern (* 52 *)
1189311876
| Misplaced_attribute of string (* 53 *)
1189411877
| Duplicated_attribute of string (* 54 *)
1189511878
| Inlining_impossible of string (* 55 *)
1189611879
| Unreachable_case (* 56 *)
1189711880
| Ambiguous_pattern of string list (* 57 *)
11898-
11899-
| No_cmx_file of string (* 58 *)
11900-
1190111881
| Assignment_to_non_mutable_value (* 59 *)
1190211882
| Unused_module of string (* 60 *)
1190311883
| Unboxable_type_in_prim_decl of string (* 61 *)
1190411884
| Constraint_on_gadt (* 62 *)
1190511885

11906-
1190711886
| Bs_unused_attribute of string (* 101 *)
1190811887
| Bs_polymorphic_comparison (* 102 *)
1190911888
| Bs_ffi_warning of string (* 103 *)
@@ -11953,9 +11932,6 @@ let number = function
1195311932
| Wildcard_arg_to_constant_constr -> 28
1195411933
| Eol_in_string -> 29
1195511934
| Duplicate_definitions _ -> 30
11956-
11957-
| Multiple_definition _ -> 31
11958-
1195911935
| Unused_value_declaration _ -> 32
1196011936
| Unused_open _ -> 33
1196111937
| Unused_type_declaration _ -> 34
@@ -11975,24 +11951,16 @@ let number = function
1197511951
| Eliminated_optional_arguments _ -> 48
1197611952
| No_cmi_file _ -> 49
1197711953
| Bad_docstring _ -> 50
11978-
11979-
| Expect_tailcall -> 51
11980-
1198111954
| Fragile_literal_pattern -> 52
1198211955
| Misplaced_attribute _ -> 53
1198311956
| Duplicated_attribute _ -> 54
1198411957
| Inlining_impossible _ -> 55
1198511958
| Unreachable_case -> 56
1198611959
| Ambiguous_pattern _ -> 57
11987-
11988-
| No_cmx_file _ -> 58
11989-
1199011960
| Assignment_to_non_mutable_value -> 59
1199111961
| Unused_module _ -> 60
1199211962
| Unboxable_type_in_prim_decl _ -> 61
1199311963
| Constraint_on_gadt -> 62
11994-
11995-
1199611964
| Bs_unused_attribute _ -> 101
1199711965
| Bs_polymorphic_comparison -> 102
1199811966
| Bs_ffi_warning _ -> 103
@@ -12002,7 +11970,6 @@ let number = function
1200211970
| Bs_integer_literal_overflow -> 107
1200311971
| Bs_uninterpreted_delimiters _ -> 108
1200411972
| Bs_toplevel_expression_unit -> 109
12005-
1200611973
;;
1200711974

1200811975
let last_warning_number = 109
@@ -12246,12 +12213,6 @@ let message = function
1224612213
| Duplicate_definitions (kind, cname, tc1, tc2) ->
1224712214
Printf.sprintf "the %s %s is defined in both types %s and %s."
1224812215
kind cname tc1 tc2
12249-
12250-
| Multiple_definition(modname, file1, file2) ->
12251-
Printf.sprintf
12252-
"files %s and %s both define a module named %s"
12253-
file1 file2 modname
12254-
1225512216
| Unused_value_declaration v -> "unused value " ^ v ^ "."
1225612217
| Unused_open s -> "unused open " ^ s ^ "."
1225712218
| Unused_type_declaration s -> "unused type " ^ s ^ "."
@@ -12331,10 +12292,6 @@ let message = function
1233112292
| Bad_docstring unattached ->
1233212293
if unattached then "unattached documentation comment (ignored)"
1233312294
else "ambiguous documentation comment"
12334-
12335-
| Expect_tailcall ->
12336-
Printf.sprintf "expected tailcall"
12337-
1233812295
| Fragile_literal_pattern ->
1233912296
Printf.sprintf
1234012297
"Code should not depend on the actual values of\n\
@@ -12363,12 +12320,6 @@ let message = function
1236312320
"Ambiguous or-pattern variables under guard;\n\
1236412321
%s may match different arguments. (See manual section 8.5)"
1236512322
msg
12366-
12367-
| No_cmx_file name ->
12368-
Printf.sprintf
12369-
"no cmx file was found in path for module %s, \
12370-
and its interface was not compiled with -opaque" name
12371-
1237212323
| Assignment_to_non_mutable_value ->
1237312324
"A potential assignment to a non-mutable value was detected \n\
1237412325
in this source file. Such assignments may generate incorrect code \n\

lib/4.06.1/unstable/bspack.ml

Lines changed: 0 additions & 49 deletions
Original file line numberDiff line numberDiff line change
@@ -3260,9 +3260,6 @@ type t =
32603260
| Wildcard_arg_to_constant_constr (* 28 *)
32613261
| Eol_in_string (* 29 *)
32623262
| Duplicate_definitions of string * string * string * string (* 30 *)
3263-
3264-
| Multiple_definition of string * string * string (* 31 *)
3265-
32663263
| Unused_value_declaration of string (* 32 *)
32673264
| Unused_open of string (* 33 *)
32683265
| Unused_type_declaration of string (* 34 *)
@@ -3282,23 +3279,16 @@ type t =
32823279
| Eliminated_optional_arguments of string list (* 48 *)
32833280
| No_cmi_file of string * string option (* 49 *)
32843281
| Bad_docstring of bool (* 50 *)
3285-
3286-
| Expect_tailcall (* 51 *)
3287-
32883282
| Fragile_literal_pattern (* 52 *)
32893283
| Misplaced_attribute of string (* 53 *)
32903284
| Duplicated_attribute of string (* 54 *)
32913285
| Inlining_impossible of string (* 55 *)
32923286
| Unreachable_case (* 56 *)
32933287
| Ambiguous_pattern of string list (* 57 *)
3294-
3295-
| No_cmx_file of string (* 58 *)
3296-
32973288
| Assignment_to_non_mutable_value (* 59 *)
32983289
| Unused_module of string (* 60 *)
32993290
| Unboxable_type_in_prim_decl of string (* 61 *)
33003291
| Constraint_on_gadt (* 62 *)
3301-
33023292
| Bs_unused_attribute of string (* 101 *)
33033293
| Bs_polymorphic_comparison (* 102 *)
33043294
| Bs_ffi_warning of string (* 103 *)
@@ -3308,7 +3298,6 @@ type t =
33083298
| Bs_integer_literal_overflow (* 107 *)
33093299
| Bs_uninterpreted_delimiters of string (* 108 *)
33103300
| Bs_toplevel_expression_unit (* 109 *)
3311-
33123301
;;
33133302

33143303
val parse_options : bool -> string -> unit;;
@@ -3412,9 +3401,6 @@ type t =
34123401
| Wildcard_arg_to_constant_constr (* 28 *)
34133402
| Eol_in_string (* 29 *)
34143403
| Duplicate_definitions of string * string * string * string (*30 *)
3415-
3416-
| Multiple_definition of string * string * string (* 31 *)
3417-
34183404
| Unused_value_declaration of string (* 32 *)
34193405
| Unused_open of string (* 33 *)
34203406
| Unused_type_declaration of string (* 34 *)
@@ -3434,24 +3420,17 @@ type t =
34343420
| Eliminated_optional_arguments of string list (* 48 *)
34353421
| No_cmi_file of string * string option (* 49 *)
34363422
| Bad_docstring of bool (* 50 *)
3437-
3438-
| Expect_tailcall (* 51 *)
3439-
34403423
| Fragile_literal_pattern (* 52 *)
34413424
| Misplaced_attribute of string (* 53 *)
34423425
| Duplicated_attribute of string (* 54 *)
34433426
| Inlining_impossible of string (* 55 *)
34443427
| Unreachable_case (* 56 *)
34453428
| Ambiguous_pattern of string list (* 57 *)
3446-
3447-
| No_cmx_file of string (* 58 *)
3448-
34493429
| Assignment_to_non_mutable_value (* 59 *)
34503430
| Unused_module of string (* 60 *)
34513431
| Unboxable_type_in_prim_decl of string (* 61 *)
34523432
| Constraint_on_gadt (* 62 *)
34533433

3454-
34553434
| Bs_unused_attribute of string (* 101 *)
34563435
| Bs_polymorphic_comparison (* 102 *)
34573436
| Bs_ffi_warning of string (* 103 *)
@@ -3501,9 +3480,6 @@ let number = function
35013480
| Wildcard_arg_to_constant_constr -> 28
35023481
| Eol_in_string -> 29
35033482
| Duplicate_definitions _ -> 30
3504-
3505-
| Multiple_definition _ -> 31
3506-
35073483
| Unused_value_declaration _ -> 32
35083484
| Unused_open _ -> 33
35093485
| Unused_type_declaration _ -> 34
@@ -3523,24 +3499,16 @@ let number = function
35233499
| Eliminated_optional_arguments _ -> 48
35243500
| No_cmi_file _ -> 49
35253501
| Bad_docstring _ -> 50
3526-
3527-
| Expect_tailcall -> 51
3528-
35293502
| Fragile_literal_pattern -> 52
35303503
| Misplaced_attribute _ -> 53
35313504
| Duplicated_attribute _ -> 54
35323505
| Inlining_impossible _ -> 55
35333506
| Unreachable_case -> 56
35343507
| Ambiguous_pattern _ -> 57
3535-
3536-
| No_cmx_file _ -> 58
3537-
35383508
| Assignment_to_non_mutable_value -> 59
35393509
| Unused_module _ -> 60
35403510
| Unboxable_type_in_prim_decl _ -> 61
35413511
| Constraint_on_gadt -> 62
3542-
3543-
35443512
| Bs_unused_attribute _ -> 101
35453513
| Bs_polymorphic_comparison -> 102
35463514
| Bs_ffi_warning _ -> 103
@@ -3550,7 +3518,6 @@ let number = function
35503518
| Bs_integer_literal_overflow -> 107
35513519
| Bs_uninterpreted_delimiters _ -> 108
35523520
| Bs_toplevel_expression_unit -> 109
3553-
35543521
;;
35553522

35563523
let last_warning_number = 109
@@ -3794,12 +3761,6 @@ let message = function
37943761
| Duplicate_definitions (kind, cname, tc1, tc2) ->
37953762
Printf.sprintf "the %s %s is defined in both types %s and %s."
37963763
kind cname tc1 tc2
3797-
3798-
| Multiple_definition(modname, file1, file2) ->
3799-
Printf.sprintf
3800-
"files %s and %s both define a module named %s"
3801-
file1 file2 modname
3802-
38033764
| Unused_value_declaration v -> "unused value " ^ v ^ "."
38043765
| Unused_open s -> "unused open " ^ s ^ "."
38053766
| Unused_type_declaration s -> "unused type " ^ s ^ "."
@@ -3879,10 +3840,6 @@ let message = function
38793840
| Bad_docstring unattached ->
38803841
if unattached then "unattached documentation comment (ignored)"
38813842
else "ambiguous documentation comment"
3882-
3883-
| Expect_tailcall ->
3884-
Printf.sprintf "expected tailcall"
3885-
38863843
| Fragile_literal_pattern ->
38873844
Printf.sprintf
38883845
"Code should not depend on the actual values of\n\
@@ -3911,12 +3868,6 @@ let message = function
39113868
"Ambiguous or-pattern variables under guard;\n\
39123869
%s may match different arguments. (See manual section 8.5)"
39133870
msg
3914-
3915-
| No_cmx_file name ->
3916-
Printf.sprintf
3917-
"no cmx file was found in path for module %s, \
3918-
and its interface was not compiled with -opaque" name
3919-
39203871
| Assignment_to_non_mutable_value ->
39213872
"A potential assignment to a non-mutable value was detected \n\
39223873
in this source file. Such assignments may generate incorrect code \n\

0 commit comments

Comments
 (0)