Skip to content

Commit 79f91e9

Browse files
committed
flambda-backend: Revert ocaml/driver/ changes that are duplicative
1 parent 6c5197b commit 79f91e9

File tree

2 files changed

+0
-7
lines changed

2 files changed

+0
-7
lines changed

driver/main_args.ml

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -966,9 +966,6 @@ let mk_afl_inst_ratio f =
966966
\ (advanced, see afl-fuzz docs for AFL_INST_RATIO)"
967967
;;
968968

969-
let mk_alloc_check f =
970-
"-zero-alloc-check", Arg.Unit f, "<ignored>"
971-
972969
let mk__ f =
973970
"-", Arg.String f,
974971
"<file> Treat <file> as a file name (even if it starts with `-')"
@@ -1204,7 +1201,6 @@ module type Optcomp_options = sig
12041201
val _save_ir_after : string -> unit
12051202
val _probes : unit -> unit
12061203
val _no_probes : unit -> unit
1207-
val _alloc_check : unit -> unit
12081204
end;;
12091205

12101206
module type Opttop_options = sig
@@ -1582,7 +1578,6 @@ struct
15821578
mk_dump_into_file F._dump_into_file;
15831579
mk_dump_dir F._dump_dir;
15841580
mk_dump_pass F._dump_pass;
1585-
mk_alloc_check F._alloc_check;
15861581

15871582
mk_args F._args;
15881583
mk_args0 F._args0;
@@ -2074,7 +2069,6 @@ module Default = struct
20742069
let _v () = Compenv.print_version_and_library "native-code compiler"
20752070
let _no_probes = clear probes
20762071
let _probes = set probes
2077-
let _alloc_check () = ()
20782072
end
20792073

20802074
module Odoc_args = struct

driver/main_args.mli

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -246,7 +246,6 @@ module type Optcomp_options = sig
246246
val _save_ir_after : string -> unit
247247
val _probes : unit -> unit
248248
val _no_probes : unit -> unit
249-
val _alloc_check : unit -> unit
250249
end;;
251250

252251
module type Opttop_options = sig

0 commit comments

Comments
 (0)