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