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 @@ -940,9 +940,6 @@ let mk_afl_inst_ratio f =
940
940
\ (advanced, see afl-fuzz docs for AFL_INST_RATIO)"
941
941
;;
942
942
943
- let mk_alloc_check f =
944
- " -alloc-check" , Arg. Unit f, " <ignored>"
945
-
946
943
let mk__ f =
947
944
" -" , Arg. String f,
948
945
" <file> Treat <file> as a file name (even if it starts with `-')"
@@ -1175,7 +1172,6 @@ module type Optcomp_options = sig
1175
1172
val _save_ir_after : string -> unit
1176
1173
val _probes : unit -> unit
1177
1174
val _no_probes : unit -> unit
1178
- val _alloc_check : unit -> unit
1179
1175
end ;;
1180
1176
1181
1177
module type Opttop_options = sig
@@ -1545,7 +1541,6 @@ struct
1545
1541
mk_dump_into_file F. _dump_into_file;
1546
1542
mk_dump_dir F. _dump_dir;
1547
1543
mk_dump_pass F. _dump_pass;
1548
- mk_alloc_check F. _alloc_check;
1549
1544
1550
1545
mk_args F. _args;
1551
1546
mk_args0 F. _args0;
@@ -2029,7 +2024,6 @@ module Default = struct
2029
2024
let _v () = Compenv. print_version_and_library " native-code compiler"
2030
2025
let _no_probes = clear probes
2031
2026
let _probes = set probes
2032
- let _alloc_check () = ()
2033
2027
end
2034
2028
2035
2029
module Odoc_args = struct
Original file line number Diff line number Diff line change @@ -243,7 +243,6 @@ module type Optcomp_options = sig
243
243
val _save_ir_after : string -> unit
244
244
val _probes : unit -> unit
245
245
val _no_probes : unit -> unit
246
- val _alloc_check : unit -> unit
247
246
end ;;
248
247
249
248
module type Opttop_options = sig
You can’t perform that action at this time.
0 commit comments