[src/trunk]: src/usr.bin/xlint/lint1 eat the last d in double constants.

[christos <christos%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/b4f72b7f963b
branches:  trunk
changeset: 770076:b4f72b7f963b
user:      christos <christos%NetBSD.org@localhost>
date:      Sun Oct 02 19:45:10 2011 +0000

description:
eat the last d in double constants.

diffstat:

 usr.bin/xlint/lint1/scan.l |  8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diffs (37 lines):

diff -r 12e33f071597 -r b4f72b7f963b usr.bin/xlint/lint1/scan.l
--- a/usr.bin/xlint/lint1/scan.l        Sun Oct 02 19:31:45 2011 +0000
+++ b/usr.bin/xlint/lint1/scan.l        Sun Oct 02 19:45:10 2011 +0000
@@ -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 @@
                typ = LDOUBLE;
                len--;
        } else {
+               if (c == 'd' || c == 'D') 
+                       len--;
                typ = DOUBLE;
        }
 
@@ -741,7 +743,7 @@
                        errno = 0;
                        break;
                default:
-                       LERROR("fcon()");
+                       LERROR("fcon(%s->%s)", cp, eptr);
                }
        }
        if (errno != 0)