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/Parser.mly | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'cparser/Parser.mly')

diff --git a/cparser/Parser.mly b/cparser/Parser.mly
index 0eebb84a..83b1984c 100644
--- a/cparser/Parser.mly
+++ b/cparser/Parser.mly
@@ -199,14 +199,13 @@ let transformOffsetOf (speclist, dtype) member =
   let sizeofType = [SpecType Tunsigned], JUSTBASE in
   let resultExpr = CAST (sizeofType, SINGLE_INIT addrExpr) in
   resultExpr
-
 %}
 
 %token <string * Cabs.cabsloc> IDENT
 %token <int64 list * Cabs.cabsloc> CST_CHAR
 %token <int64 list * Cabs.cabsloc> CST_WCHAR
 %token <string * Cabs.cabsloc> CST_INT
-%token <string * Cabs.cabsloc> CST_FLOAT
+%token <Cabs.floatInfo * Cabs.cabsloc> CST_FLOAT
 %token <string * Cabs.cabsloc> NAMED_TYPE
 
 /* Each character is its own list element, and the terminating nul is not
-- 
cgit