Commits

Anonymous committed 75a464e

Ajout option -compact.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@107f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

Comments (0)

Files changed (2)

driver/optmain.ml

        "-i", Arg.Unit(fun () -> print_types := true);
        "-a", Arg.Unit(fun () -> make_archive := true);
        "-fast", Arg.Unit(fun () -> fast := true);
+       "-compact", Arg.Unit(fun () -> optimize_for_speed := false);
        "-nopervasives", Arg.Unit(fun () -> nopervasives := true);
        "-ccopt", Arg.String(fun s -> ccopts := s :: !ccopts);
        "-cclib", Arg.String(fun s -> ccobjs := ("-l" ^ s) :: !ccobjs);
        "-l", Arg.String(fun s -> ccobjs := s :: !ccobjs);
        "-dlambda", Arg.Unit(fun () -> dump_lambda := true);
-       "-dcmm", Arg.Unit(fun () -> Clflags.dump_cmm := true);
-       "-dsel", Arg.Unit(fun () -> Clflags.dump_selection := true);
-       "-dlive", Arg.Unit(fun () -> Clflags.dump_live := true;
+       "-dcmm", Arg.Unit(fun () -> dump_cmm := true);
+       "-dsel", Arg.Unit(fun () -> dump_selection := true);
+       "-dlive", Arg.Unit(fun () -> dump_live := true;
                                     Printmach.print_live := true);
-       "-dspill", Arg.Unit(fun () -> Clflags.dump_spill := true);
-       "-dsplit", Arg.Unit(fun () -> Clflags.dump_split := true);
-       "-dinterf", Arg.Unit(fun () -> Clflags.dump_interf := true);
-       "-dprefer", Arg.Unit(fun () -> Clflags.dump_prefer := true);
-       "-dalloc", Arg.Unit(fun () -> Clflags.dump_regalloc := true);
-       "-dreload", Arg.Unit(fun () -> Clflags.dump_reload := true);
-       "-dlinear", Arg.Unit(fun () -> Clflags.dump_linear := true);
-       "-dstartup", Arg.Unit(fun () -> Clflags.keep_startup_file := true);
+       "-dspill", Arg.Unit(fun () -> dump_spill := true);
+       "-dsplit", Arg.Unit(fun () -> dump_split := true);
+       "-dinterf", Arg.Unit(fun () -> dump_interf := true);
+       "-dprefer", Arg.Unit(fun () -> dump_prefer := true);
+       "-dalloc", Arg.Unit(fun () -> dump_regalloc := true);
+       "-dreload", Arg.Unit(fun () -> dump_reload := true);
+       "-dlinear", Arg.Unit(fun () -> dump_linear := true);
+       "-dstartup", Arg.Unit(fun () -> keep_startup_file := true);
        "-v", Arg.Unit print_version_number;
        "-", Arg.String process_file]
       process_file;
 and dump_instr = ref false              (* -dinstr *)
 
 let assembler_only = ref false          (* -S *)
+let optimize_for_speed = ref true       (* -compact *)
 
 and dump_cmm = ref false                (* -dcmm *)
 let dump_selection = ref false          (* -dsel *)