ocaml/asmcomp/main.ml

18 lines
794 B
OCaml
Raw Normal View History

let main() =
Arg.parse
["-dcmm", Arg.Unit(fun () -> Codegen.dump_cmm := true);
"-dsel", Arg.Unit(fun () -> Codegen.dump_selection := true);
"-dlive", Arg.Unit(fun () -> Codegen.dump_live := true;
Printmach.print_live := true);
"-dspill", Arg.Unit(fun () -> Codegen.dump_spill := true);
"-dsplit", Arg.Unit(fun () -> Codegen.dump_split := true);
"-dinterf", Arg.Unit(fun () -> Codegen.dump_interf := true);
"-dprefer", Arg.Unit(fun () -> Codegen.dump_prefer := true);
"-dalloc", Arg.Unit(fun () -> Codegen.dump_regalloc := true);
"-dreload", Arg.Unit(fun () -> Codegen.dump_reload := true);
"-dlinear", Arg.Unit(fun () -> Codegen.dump_linear := true)]
Codegen.file
let _ = Printexc.catch main (); exit 0