From 0e4108c639c1edd9504dfce3cb165249e09505d4 Mon Sep 17 00:00:00 2001
From: christos <christos@NetBSD.org>
Date: Sun, 2 Oct 2011 19:45:10 +0000
Subject: [PATCH] eat the last d in double constants.

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

diff --git a/usr.bin/xlint/lint1/scan.l b/usr.bin/xlint/lint1/scan.l
index b335eca76cd1..9012430b4d86 100644
--- a/usr.bin/xlint/lint1/scan.l
+++ b/usr.bin/xlint/lint1/scan.l
@@ -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)