From: ceriel <none@none>
Date: Wed, 13 Jul 1988 20:13:17 +0000 (+0000)
Subject: fixed problem with D scale factor
X-Git-Tag: release-5-5~3037
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=02154c02b2df2dbeb15b317c83685ef2a2ac3560;p=ack.git

fixed problem with D scale factor
---

diff --git a/lang/m2/comp/LLlex.c b/lang/m2/comp/LLlex.c
index 627513387..92f8cea3f 100644
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -582,6 +582,7 @@ lexwarning(W_ORDINARY, "overflow in constant");
 				LoadChar(ch);
 				if (!(ch == '+' || ch == '-' || is_dig(ch)))
 					goto noscale;
+				UnloadChar(ch);
 			}
 			if (np < &buf[NUMSIZE]) *np++ = 'E';
 			LoadChar(ch);