From f535ac931c2b7dc65fefa83e47bb8c79ca90e92d Mon Sep 17 00:00:00 2001 From: xleroy Date: Mon, 17 Oct 2011 09:38:31 +0000 Subject: Corrected initialization of char arrays by string literals. Added -flongdouble option (to turn long double into double) git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1731 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- driver/Clflags.ml | 1 + driver/Driver.ml | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'driver') diff --git a/driver/Clflags.ml b/driver/Clflags.ml index fe14ba7..cb26b72 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -16,6 +16,7 @@ let prepro_options = ref ([]: string list) let linker_options = ref ([]: string list) let exe_name = ref "a.out" let option_flonglong = ref true +let option_flongdouble = ref false let option_fstruct_passing = ref false let option_fstruct_assign = ref false let option_fbitfields = ref false diff --git a/driver/Driver.ml b/driver/Driver.ml index 1139e7a..3aff4e0 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -338,6 +338,7 @@ Preprocessing options: Language support options (use -fno- to turn off -f) : -fbitfields Emulate bit fields in structs [off] -flonglong Partial emulation of 'long long' types [on] + -flongdouble Treat 'long double' as 'double' [off] -fstruct-passing Emulate passing structs and unions by value [off] -fstruct-assign Emulate assignment between structs or unions [off] -fvararg-calls Emulate calls to variable-argument functions [on] @@ -379,7 +380,7 @@ Interpreter mode: " let language_support_options = [ - option_fbitfields; option_flonglong; option_fstruct_passing; + option_fbitfields; option_flonglong; option_flongdouble; option_fstruct_passing; option_fstruct_assign; option_fvararg_calls; option_fpacked_structs; option_fvolatile_rmw ] @@ -438,6 +439,7 @@ let cmdline_actions = List.iter (fun r -> r := false) language_support_options); ] @ f_opt "longlong" option_flonglong + @ f_opt "longdouble" option_flongdouble @ f_opt "struct-passing" option_fstruct_passing @ f_opt "struct-assign" option_fstruct_assign @ f_opt "bitfields" option_fbitfields -- cgit v1.2.3