diff options
Diffstat (limited to 'cfrontend')
| -rw-r--r-- | cfrontend/C2C.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index a516780..2f50a0e 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -256,7 +256,9 @@ let convertIkind = function let convertFkind = function | C.FFloat -> F32 | C.FDouble -> F64 - | C.FLongDouble -> unsupported "'long double' type"; F64 + | C.FLongDouble -> + if not !Clflags.option_flongdouble then unsupported "'long double' type"; + F64 let int64_struct = let ty = Tint(I32,Unsigned) in |