From: ceriel <none@none>
Date: Wed, 19 Apr 1989 15:00:07 +0000 (+0000)
Subject: removed one goto
X-Git-Tag: release-5-5~2458
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=e967e920be6865a456888aaa1c79812b7b2216f7;p=ack.git

removed one goto
---

diff --git a/lang/m2/comp/LLlex.c b/lang/m2/comp/LLlex.c
index 83be7d26f..3e0bd9548 100644
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -548,17 +548,18 @@ lexwarning(W_ORDINARY, "overflow in constant");
 			LoadChar(ch);
 		}
 
-		if (ch == 'E' || ch == 'D') {
-			/*	Scale factor
-			*/
-			if (ch == 'D') {
-				toktype = longreal_type;
-				LoadChar(ch);
-				if (!(ch == '+' || ch == '-' || is_dig(ch)))
-					goto noscale;
+		if (ch == 'D') {
+			toktype = longreal_type;
+			LoadChar(ch);
+			if (ch == '+' || ch == '-' || is_dig(ch)) {
+				ch = 'E';
 				PushBack();
 			}
-			if (np < &buf[NUMSIZE]) *np++ = 'E';
+		}
+		if (ch == 'E') {
+			/*	Scale factor
+			*/
+			if (np < &buf[NUMSIZE]) *np++ = ch;
 			LoadChar(ch);
 			if (ch == '+' || ch == '-') {
 				/*	Signed scalefactor
@@ -577,7 +578,6 @@ lexwarning(W_ORDINARY, "overflow in constant");
 			}
 		}
 
-noscale:
 		*np++ = '\0';
 		PushBack();