diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-31 12:44:18 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-31 12:44:18 +0000 |
commit | 4c8a550fae641115170e4fc9c1b1292834e0c6c0 (patch) | |
tree | 2363194510dce61b3a6e3280601654c0c8646f9a /caml | |
parent | 99294ec7c8054b92536d14883599ff3bfe7745ee (diff) | |
download | compcert-4c8a550fae641115170e4fc9c1b1292834e0c6c0.tar.gz compcert-4c8a550fae641115170e4fc9c1b1292834e0c6c0.zip |
Flag to turn on/off the recognition of fused multiply-add and multiply-sub
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@706 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml')
-rw-r--r-- | caml/Driver.ml | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/caml/Driver.ml b/caml/Driver.ml index 659422e9..dacc9dcb 100644 --- a/caml/Driver.ml +++ b/caml/Driver.ml @@ -11,6 +11,7 @@ (* *********************************************************************) open Printf +open Clflags (* Location of the standard library *) @@ -20,19 +21,6 @@ let stdlib_path = ref( with Not_found -> Configuration.stdlib_path) -(* Command-line flags *) - -let prepro_options = ref ([]: string list) -let linker_options = ref ([]: string list) -let exe_name = ref "a.out" -let option_flonglong = ref false -let option_dclight = ref false -let option_dasm = ref false -let option_E = ref false -let option_S = ref false -let option_c = ref false -let option_v = ref false - let command cmd = if !option_v then begin prerr_string "+ "; prerr_string cmd; prerr_endline "" @@ -273,6 +261,7 @@ Preprocessing options: -U<symb> Undefine preprocessor symbol Compilation options: -flonglong Treat 'long long' as 'long' and 'long double' as 'double' + -fmadd Use fused multiply-add and multiply-sub instructions -dclight Save generated Clight in <file>.light.c -dasm Save generated assembly in <file>.s Linking options: @@ -308,6 +297,10 @@ let rec parse_cmdline i = option_flonglong := true; parse_cmdline (i + 1) end else + if s = "-fmadd" then begin + option_fmadd := true; + parse_cmdline (i + 1) + end else if s = "-dclight" then begin option_dclight := true; parse_cmdline (i + 1) |