Added recognition of 'l' or 'L' as long integer suffix

1 files changed, 23 insertions, 16 deletions

diff --git a/Parser/tokenizer.c b/Parser/tokenizer.c
index 86106b3..62a3da0 100644
--- a/Parser/tokenizer.c
+++ b/Parser/tokenizer.c
@@ -435,30 +435,37 @@ tok_get(tok, p_start, p_end)
 					c = tok_nextc(tok);
 				}
 			}
+			if (c == 'l' || c == 'L')
+				c = tok_nextc(tok);
 		}
 		else {
 			/* Decimal */
 			do {
 				c = tok_nextc(tok);
 			} while (isdigit(c));
-			/* Accept floating point numbers.
-			   XXX This accepts incomplete things like 12e or 1e+;
-			       worry about that at run-time.
-			   XXX Doesn't accept numbers starting with a dot */
-			if (c == '.') {
-	fraction:
-				/* Fraction */
-				do {
-					c = tok_nextc(tok);
-				} while (isdigit(c));
-			}
-			if (c == 'e' || c == 'E') {
-				/* Exponent part */
+			if (c == 'l' || c == 'L')
 				c = tok_nextc(tok);
-				if (c == '+' || c == '-')
-					c = tok_nextc(tok);
-				while (isdigit(c)) {
+			else {
+				/* Accept floating point numbers.
+				   XXX This accepts incomplete things like
+				   XXX 12e or 1e+; worry run-time.
+				   XXX Doesn't accept numbers
+				   XXX starting with a dot */
+				if (c == '.') {
+		fraction:
+					/* Fraction */
+					do {
+						c = tok_nextc(tok);
+					} while (isdigit(c));
+				}
+				if (c == 'e' || c == 'E') {
+					/* Exponent part */
 					c = tok_nextc(tok);
+					if (c == '+' || c == '-')
+						c = tok_nextc(tok);
+					while (isdigit(c)) {
+						c = tok_nextc(tok);
+					}
 				}
 			}
 		}