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 /cfrontend | |
| parent | 6a485a63fc02c3695ea6cd921896ab764755fd1e (diff) | |
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 '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 |