diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-10-17 09:38:31 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-10-17 09:38:31 +0000 |
| commit | f535ac931c2b7dc65fefa83e47bb8c79ca90e92d (patch) | |
| tree | 3fb3ebe944c631873574874a1f5d8cdcb286eb41 /driver | |
| parent | 6a485a63fc02c3695ea6cd921896ab764755fd1e (diff) | |
| download | compcert-f535ac931c2b7dc65fefa83e47bb8c79ca90e92d.tar.gz compcert-f535ac931c2b7dc65fefa83e47bb8c79ca90e92d.zip | |
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
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/Clflags.ml | 1 | ||||
| -rw-r--r-- | driver/Driver.ml | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/driver/Clflags.ml b/driver/Clflags.ml index fe14ba7c..cb26b725 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 1139e7a4..3aff4e0f 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -338,6 +338,7 @@ Preprocessing options: Language support options (use -fno-<opt> to turn off -f<opt>) : -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 |