diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-02 09:45:55 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-02 09:45:55 +0200 |
| commit | 8058d6a89fe0cfda16f685ef5a96793b95cc4156 (patch) | |
| tree | be0be3400453ad64313432b0c580234114788846 /driver | |
| parent | 7962808d192f2b4d88e8ff1135e3f6e75cf8dea9 (diff) | |
| parent | 98206d8c97cf9ecdff8d892ecafb9a9fa8455f74 (diff) | |
| download | compcert-kvx-8058d6a89fe0cfda16f685ef5a96793b95cc4156.tar.gz compcert-kvx-8058d6a89fe0cfda16f685ef5a96793b95cc4156.zip | |
Merge branch 'mppa-xsaddr' into mppa-work
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 5b8ad443..46f19dcf 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 2672ed99..35b5db86 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -372,6 +372,9 @@ let cmdline_actions = @ f_opt_str "postpass" option_fpostpass option_fpostpass_sched @ 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 *) |