52 lines
2.5 KiB
Standard ML
52 lines
2.5 KiB
Standard ML
(***********************************************************************)
|
|
(* *)
|
|
(* Objective Caml *)
|
|
(* *)
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
|
(* Automatique. Distributed only by permission. *)
|
|
(* *)
|
|
(***********************************************************************)
|
|
|
|
(* $Id$ *)
|
|
|
|
(* Command-line parameters *)
|
|
|
|
let objfiles = ref ([] : string list) (* .cmo and .cma files *)
|
|
and ccobjs = ref ([] : string list) (* .o, .a and -lxxx files *)
|
|
|
|
let compile_only = ref false (* -c *)
|
|
and exec_name = ref "a.out" (* -o *)
|
|
and archive_name = ref "library.cma" (* -o *)
|
|
and include_dirs = ref ([] : string list)(* -I *)
|
|
and print_types = ref false (* -i *)
|
|
and make_archive = ref false (* -a *)
|
|
and fast = ref false (* -unsafe *)
|
|
and link_everything = ref false (* -linkall *)
|
|
and custom_runtime = ref false (* -custom *)
|
|
and ccopts = ref ([] : string list) (* -ccopt *)
|
|
and nopervasives = ref false (* -nopervasives *)
|
|
and preprocessor = ref(None : string option) (* -pp *)
|
|
|
|
let dump_rawlambda = ref false (* -drawlambda *)
|
|
and dump_lambda = ref false (* -dlambda *)
|
|
and dump_instr = ref false (* -dinstr *)
|
|
|
|
let keep_asm_file = ref false (* -S *)
|
|
let optimize_for_speed = ref true (* -compact *)
|
|
|
|
and dump_cmm = ref false (* -dcmm *)
|
|
let dump_selection = ref false (* -dsel *)
|
|
let dump_live = ref false (* -dlive *)
|
|
let dump_spill = ref false (* -dspill *)
|
|
let dump_split = ref false (* -dsplit *)
|
|
let dump_scheduling = ref false (* -dscheduling *)
|
|
let dump_interf = ref false (* -dinterf *)
|
|
let dump_prefer = ref false (* -dprefer *)
|
|
let dump_regalloc = ref false (* -dalloc *)
|
|
let dump_reload = ref false (* -dreload *)
|
|
let dump_scheduling = ref false (* -dscheduling *)
|
|
let dump_linear = ref false (* -dlinear *)
|
|
let keep_startup_file = ref false (* -dstartup *)
|