|
|
@@ -64,11 +64,11 @@ let parse_args () =
|
|
|
("-noopt", Arg.Unit (fun _ -> Globals.args.optimize <- false),
|
|
|
" Disable optimization");
|
|
|
("-opt", Arg.Unit (fun _ -> Globals.args.optimize <- true),
|
|
|
- " Enable optimization (overwrite earlier -nocpp)");
|
|
|
+ " Enable optimization (overwrite earlier -noopt)");
|
|
|
|
|
|
("-upto", Arg.String (fun s -> Globals.args.endphase <- s),
|
|
|
"<phase> Stop after the specified phase, and print the intermediate \
|
|
|
- representation to stderr.\n \
|
|
|
+ representation to stderr.\n \
|
|
|
Possible options are (in order of execution):" ^ upto_usage phases);
|
|
|
] in
|
|
|
|