diff options
Diffstat (limited to 'driver/Driver.ml')
-rw-r--r-- | driver/Driver.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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 |