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

1 files changed, 8 insertions, 1 deletions

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 *)