From dcb9f48f51cec5e864565862a700c27df2a1a7e6 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Sat, 3 Nov 2012 10:36:15 +0000
Subject: Flocq-based parsing of floating-point literals (Jacques-Henri
 Jourdan)

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2065 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 cparser/C.mli | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'cparser/C.mli')

diff --git a/cparser/C.mli b/cparser/C.mli
index 52f02c4..8e73bc5 100644
--- a/cparser/C.mli
+++ b/cparser/C.mli
@@ -52,9 +52,16 @@ type fkind =
 
 (** Constants *)
 
+type float_cst = {
+  hex : bool;
+  intPart : string;
+  fracPart : string;
+  exp : string;
+}
+
 type constant =
   | CInt of int64 * ikind * string      (* as it appeared in the source *)
-  | CFloat of float * fkind * string    (* as it appeared in the source *)
+  | CFloat of float_cst * fkind
   | CStr of string
   | CWStr of int64 list
   | CEnum of ident * int64              (* enum tag, integer value *)
-- 
cgit v1.2.3