18 lines
794 B
OCaml
18 lines
794 B
OCaml
|
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
|
||
|
|
|