From 39fefdbe35d14d063e71738a70deebbae896eb06 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Tue, 10 Jul 2012 09:00:02 +0000
Subject: 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
---
 cfrontend/C2C.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'cfrontend')

diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml
index 831f92f..a24d552 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) ->
-- 
cgit v1.2.3