FIX: tinny code optimization

related to: Oldes/Rebol-issues#2504
Oldes · Jul 5, 2022 · 1093ae1 · 1093ae1
1 parent e3a200a
commit 1093ae1
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/src/core/l-types.c b/src/core/l-types.c
@@ -365,11 +365,11 @@ bad_hex:	Trap0(RE_INVALID_CHARS);
 	}
 	*bp = 0;
 
-	// Too many digits?
+	// Count number of digits
 	len = (REBCNT)(bp - &buf[0]);
 	if (neg) len--;
-	if (len > 19) return 0;
 	if (len > 0) {
+		if (len > 19) return 0; // Too many digits
 		// Convert, check, and return:
 		errno = 0;
 		n = CHR_TO_INT(buf);

diff --git a/src/tests/units/make-test.r3 b/src/tests/units/make-test.r3
@@ -103,6 +103,13 @@ Rebol [
 	 	--assert 0 = to integer! "0"
 	 	--assert 0 = to integer! "00"
 	 	--assert 0 = to integer! "00000000000"
+	 	--assert 0 = to integer! "-0"
+	 	--assert 0 = to integer! "-00"
+	 	--assert 0 = to integer! "-00000000000"
+	 	--assert 0 = to integer! "+0"
+	 	--assert 0 = to integer! "+00"
+	 	--assert 0 = to integer! "+00000000000"
+	 	--assert 0 = to integer! "000'000'000"
 
 ===end-group===