Check overflow in integer literals

Make this: >> 9'999'999'999'999'999'999 == 9223372036854775807 become: >> 9'999'999'999'999'999'999 ** Syntax error: invalid "integer" -- "9'999'999'999'999'999'999" ** Near: (line 1) 9'999'999'999'999'999'999 #8
zsx · Aug 20, 2014 · 790829a · 790829a
1 parent cc625be
commit 790829a
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/l-types.c b/src/core/l-types.c
@@ -335,7 +335,9 @@ bad_hex:	Trap0(RE_INVALID_CHARS);
 	if (len > 19) return 0;
 
 	// Convert, check, and return:
+	errno = 0;
 	n = CHR_TO_INT(buf);
+	if (errno != 0) return 0; //overflow
 	if ((n > 0 && neg) || (n < 0 && !neg)) return 0;
 	SET_INTEGER(value, n);
 	return cp;