diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-02 09:32:49 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-02 09:32:49 +0200 |
| commit | 9f256a4ad30c93749e6c1192a84f996feac3b023 (patch) | |
| tree | 81b381e5651e34474a133f012927442f64d51c56 /driver | |
| parent | 053cfa54205575ceb984f5922f51f4fce5980604 (diff) | |
| download | compcert-kvx-9f256a4ad30c93749e6c1192a84f996feac3b023.tar.gz compcert-kvx-9f256a4ad30c93749e6c1192a84f996feac3b023.zip | |
command line options (still incomplete)
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/Clflags.ml | 4 | ||||
| -rw-r--r-- | driver/Compopts.v | 9 | ||||
| -rw-r--r-- | driver/Driver.ml | 3 |
3 files changed, 16 insertions, 0 deletions
diff --git a/driver/Clflags.ml b/driver/Clflags.ml index 4d70d350..76afa4b4 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -66,3 +66,7 @@ let option_small_const = ref (!option_small_data) let option_timings = ref false let stdlib_path = ref Configuration.stdlib_path let use_standard_headers = ref Configuration.has_standard_headers + +let option_fglobaladdrtmp = ref false +let option_fglobaladdroffset = ref false +let option_fxsaddr = ref true diff --git a/driver/Compopts.v b/driver/Compopts.v index e6eecc9b..3bb7a474 100644 --- a/driver/Compopts.v +++ b/driver/Compopts.v @@ -42,6 +42,15 @@ Parameter optim_redundancy: unit -> bool. (** Flag -fpostpass. Postpass scheduling for K1 architecture *) Parameter optim_postpass: unit -> bool. +(** FIXME TEMPORARY Flag -fglobaladdrtmp. Use a temporary register for loading the address of global variables (default false) *) +Parameter optim_fglobaladdrtmp: unit -> bool. + +(** FIXME TEMPORARY Flag -fglobaladdroffset. Fold offsets into global addresses (default false) *) +Parameter optim_fglobaladdroffset: unit -> bool. + +(** FIXME TEMPORARY Flag -fxsaddr. Use .xs addressing mode (default true) *) +Parameter optim_fxsaddr: unit -> bool. + (** Flag -fthumb. For the ARM back-end. *) Parameter thumb: unit -> bool. diff --git a/driver/Driver.ml b/driver/Driver.ml index c68c066a..505a1d35 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -367,6 +367,9 @@ let cmdline_actions = @ f_opt "postpass-ilp" option_fpostpass_ilp @ f_opt "inline" option_finline @ f_opt "inline-functions-called-once" option_finline_functions_called_once + @ f_opt "globaladdrtmp" option_fglobaladdrtmp + @ f_opt "globaladdroffset" option_fglobaladdroffset + @ f_opt "xsaddr" option_fxsaddr (* Code generation options *) @ f_opt "fpu" option_ffpu @ f_opt "sse" option_ffpu (* backward compatibility *) |