diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-10 09:00:02 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-10 09:00:02 +0000 |
commit | 39fefdbe35d14d063e71738a70deebbae896eb06 (patch) | |
tree | 97ce46ad184d5d834751bd2274704e5cd7a74a34 | |
parent | 9535a035c05dd9005c16d53176f866f8e6f7df0f (diff) | |
download | compcert-39fefdbe35d14d063e71738a70deebbae896eb06.tar.gz compcert-39fefdbe35d14d063e71738a70deebbae896eb06.zip |
Accept long double literals if -flongdouble is given.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1965 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r-- | cfrontend/C2C.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index 831f92f6..a24d5527 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -390,7 +390,7 @@ let rec convertExpr env e = unsupported "'long long' integer literal"; Eval(Vint(convertInt i), ty) | C.EConst(C.CFloat(f, k, _)) -> - if k = C.FLongDouble then + if k = C.FLongDouble && not !Clflags.option_flongdouble then unsupported "'long double' floating-point literal"; Eval(Vfloat(coqfloat_of_camlfloat f), ty) | C.EConst(C.CStr s) -> |