eat the last d in double constants.

This commit is contained in:
christos 2011-10-02 19:45:10 +00:00
parent c2d58f1a39
commit 0e4108c639

View File

@ -1,5 +1,5 @@
%{
/* $NetBSD: scan.l,v 1.48 2010/12/16 17:42:29 wiz Exp $ */
/* $NetBSD: scan.l,v 1.49 2011/10/02 19:45:10 christos Exp $ */
/*
* Copyright (c) 1996 Christopher G. Demetriou. All Rights Reserved.
@ -35,7 +35,7 @@
#include <sys/cdefs.h>
#if defined(__RCSID) && !defined(lint)
__RCSID("$NetBSD: scan.l,v 1.48 2010/12/16 17:42:29 wiz Exp $");
__RCSID("$NetBSD: scan.l,v 1.49 2011/10/02 19:45:10 christos Exp $");
#endif
#include <stdlib.h>
@ -716,6 +716,8 @@ fcon(void)
typ = LDOUBLE;
len--;
} else {
if (c == 'd' || c == 'D')
len--;
typ = DOUBLE;
}
@ -741,7 +743,7 @@ fcon(void)
errno = 0;
break;
default:
LERROR("fcon()");
LERROR("fcon(%s->%s)", cp, eptr);
}
}
if (errno != 0)