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/Driver.ml | |
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/Driver.ml')
-rw-r--r-- | driver/Driver.ml | 6 |
1 files changed, 6 insertions, 0 deletions
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 |