diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-03 11:29:40 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-03 11:29:40 +0200 |
| commit | cba53c98b999eea7984e4ffd24a9449abea3e0e2 (patch) | |
| tree | d50cb8a1bde1fa5c893a1752f386d08e990519e3 /driver | |
| parent | a289d73e791be5a760c8a9b2f3de2064f001a770 (diff) | |
| download | compcert-kvx-cba53c98b999eea7984e4ffd24a9449abea3e0e2.tar.gz compcert-kvx-cba53c98b999eea7984e4ffd24a9449abea3e0e2.zip | |
-fcoalesce-mem
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/Clflags.ml | 1 | ||||
| -rw-r--r-- | driver/Compopts.v | 3 | ||||
| -rw-r--r-- | driver/Driver.ml | 1 |
3 files changed, 5 insertions, 0 deletions
diff --git a/driver/Clflags.ml b/driver/Clflags.ml index 46f19dcf..b1afab6f 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -70,3 +70,4 @@ let use_standard_headers = ref Configuration.has_standard_headers let option_fglobaladdrtmp = ref false let option_fglobaladdroffset = ref false let option_fxsaddr = ref true +let option_coalesce_mem = ref true diff --git a/driver/Compopts.v b/driver/Compopts.v index 3bb7a474..f7de596c 100644 --- a/driver/Compopts.v +++ b/driver/Compopts.v @@ -51,6 +51,9 @@ Parameter optim_fglobaladdroffset: unit -> bool. (** FIXME TEMPORARY Flag -fxsaddr. Use .xs addressing mode (default true) *) Parameter optim_fxsaddr: unit -> bool. +(** FIXME TEMPORARY Flag -fcoaelesce-mem. Fuse (default true) *) +Parameter optim_coalesce_mem: unit -> bool. + (** Flag -fthumb. For the ARM back-end. *) Parameter thumb: unit -> bool. diff --git a/driver/Driver.ml b/driver/Driver.ml index 35b5db86..804fc3c9 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -375,6 +375,7 @@ let cmdline_actions = @ f_opt "globaladdrtmp" option_fglobaladdrtmp @ f_opt "globaladdroffset" option_fglobaladdroffset @ f_opt "xsaddr" option_fxsaddr + @ f_opt "coalesce-mem" option_coalesce_mem (* Code generation options *) @ f_opt "fpu" option_ffpu @ f_opt "sse" option_ffpu (* backward compatibility *) |