File tree Expand file tree Collapse file tree 2 files changed +0
-7
lines changed Expand file tree Collapse file tree 2 files changed +0
-7
lines changed Original file line number Diff line number Diff line change @@ -966,9 +966,6 @@ let mk_afl_inst_ratio f =
966
966
\ (advanced, see afl-fuzz docs for AFL_INST_RATIO)"
967
967
;;
968
968
969
- let mk_alloc_check f =
970
- " -zero-alloc-check" , Arg. Unit f, " <ignored>"
971
-
972
969
let mk__ f =
973
970
" -" , Arg. String f,
974
971
" <file> Treat <file> as a file name (even if it starts with `-')"
@@ -1204,7 +1201,6 @@ module type Optcomp_options = sig
1204
1201
val _save_ir_after : string -> unit
1205
1202
val _probes : unit -> unit
1206
1203
val _no_probes : unit -> unit
1207
- val _alloc_check : unit -> unit
1208
1204
end ;;
1209
1205
1210
1206
module type Opttop_options = sig
@@ -1582,7 +1578,6 @@ struct
1582
1578
mk_dump_into_file F. _dump_into_file;
1583
1579
mk_dump_dir F. _dump_dir;
1584
1580
mk_dump_pass F. _dump_pass;
1585
- mk_alloc_check F. _alloc_check;
1586
1581
1587
1582
mk_args F. _args;
1588
1583
mk_args0 F. _args0;
@@ -2074,7 +2069,6 @@ module Default = struct
2074
2069
let _v () = Compenv. print_version_and_library " native-code compiler"
2075
2070
let _no_probes = clear probes
2076
2071
let _probes = set probes
2077
- let _alloc_check () = ()
2078
2072
end
2079
2073
2080
2074
module Odoc_args = struct
Original file line number Diff line number Diff line change @@ -246,7 +246,6 @@ module type Optcomp_options = sig
246
246
val _save_ir_after : string -> unit
247
247
val _probes : unit -> unit
248
248
val _no_probes : unit -> unit
249
- val _alloc_check : unit -> unit
250
249
end ;;
251
250
252
251
module type Opttop_options = sig
You can’t perform that action at this time.
0 commit comments