diff options
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 6986fb96..c20758b3 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -77,6 +77,8 @@ 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_div_i32 = ref "stsud" +let option_div_i64 = ref "stsud" let option_faddx = ref false let option_fcoalesce_mem = ref true let option_fforward_moves = ref true diff --git a/driver/Driver.ml b/driver/Driver.ml index 388482a0..ba48f29a 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -289,6 +289,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 @@ -408,6 +412,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 "coalesce-mem" option_fcoalesce_mem @ f_opt "all-loads-nontrap" option_all_loads_nontrap |