diff options
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 *) |