diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-20 18:45:02 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-20 18:45:02 +0200 |
commit | 71509473c434483d6fb7901795a1004cf272680c (patch) | |
tree | 3f6c7a89dd21b535915533e2ca66b36ac6ee7522 /driver | |
parent | 4965352c558f8e030b3b968f98566f87ed6f0b8a (diff) | |
parent | 09184b1ab9be700d0cb5125c113b4fb8d6be06c8 (diff) | |
download | compcert-kvx-71509473c434483d6fb7901795a1004cf272680c.tar.gz compcert-kvx-71509473c434483d6fb7901795a1004cf272680c.zip |
Merge remote-tracking branch 'origin/mppa-fast-div' into mppa-features
Diffstat (limited to 'driver')
-rw-r--r-- | driver/Clflags.ml | 2 | ||||
-rw-r--r-- | driver/Driver.ml | 6 |
2 files changed, 8 insertions, 0 deletions
diff --git a/driver/Clflags.ml b/driver/Clflags.ml index fd9603ee..bb40844e 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -81,6 +81,8 @@ let option_fglobaladdroffset = ref false let option_fxsaddr = ref true let option_faddx = ref false let option_fmadd = ref true +let option_div_i32 = ref "stsud" +let option_div_i64 = ref "stsud" let option_fcoalesce_mem = ref true let option_fforward_moves = ref true let option_fmove_loop_invariants = ref true diff --git a/driver/Driver.ml b/driver/Driver.ml index 3fae2a7d..20c10ace 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -295,6 +295,10 @@ let cmdline_actions = [Exact("-f" ^ name ^ "="), String (fun s -> (strref := (if s == "" then "list" else s)); ref := true) ] in + let f_str name strref default = + [Exact("-f" ^ name ^ "="), String + (fun s -> (strref := (if s == "" then default else s))) + ] in let check_align n = if n <= 0 || ((n land (n - 1)) <> 0) then error no_loc "requested alignment %d is not a power of 2" n @@ -418,6 +422,8 @@ let cmdline_actions = @ f_opt "globaladdrtmp" option_fglobaladdrtmp @ f_opt "globaladdroffset" option_fglobaladdroffset @ f_opt "xsaddr" option_fxsaddr + @ f_str "div-i32" option_div_i32 "stsud" + @ f_str "div-i64" option_div_i64 "stsud" @ f_opt "addx" option_faddx @ f_opt "madd" option_fmadd @ f_opt "nontrap-loads" option_fnontrap_loads |