WIP

infradig · infradig · commit cfa5941277ab · 2025-10-21T15:54:27.000+10:00
diff --git a/src/parser.c b/src/parser.c
@@ -2589,7 +2589,7 @@ void read_integer(parser *p, mp_int v2, int base, const char **srcptr)
 			src++;
 		}
 
-		if ((last_ch == '_') && (iswspace(*src) || (*src == '%'))) {
+		if (last_ch == '_') {
 			p->srcptr = (char*)src;
 			src = eat_space(p);
 		}
diff --git a/tests/issues/test903.expected b/tests/issues/test903.expected
@@ -1,6 +1,7 @@
 ok1
 ok2
-123
-291
+3
+4
 ok5
-123
+6
+7
diff --git a/tests/issues/test903.pl b/tests/issues/test903.pl
@@ -3,8 +3,9 @@
 main :-
 	catch((number_chars(_,"0_%0"),fail), _, write(ok1)), nl,
 	catch((number_chars(_,"0x0_/*b"),fail), _, write(ok2)), nl,
-	number_chars(N3,"0_\n123"), write(N3), nl,
-	number_chars(N4,"0x0_\n123"), write(N4), nl,
+	number_chars(N3,"0_\n3"), write(N3), nl,
+	number_chars(N4,"0x0_\n4"), write(N4), nl,
 	catch((number_chars(_,"0x0_\n%1"),fail), _, write(ok5)), nl,
-	number_chars(N5,"0_%\n123"), write(N5), nl.
+	number_chars(N6,"0_%\n6"), write(N6), nl,
+	number_chars(N7,"0_/**/\n7"), write(N7), nl.
 

Original file line number	Diff line number	Diff line change
`@@ -2589,7 +2589,7 @@ void read_integer(parser p, mp_int v2, int base, const char *srcptr)`
`2589`	`2589`	`src++;`
`2590`	`2590`	`}`
`2591`	`2591`
`2592`		`- if ((last_ch == '_') && (iswspace(src) \|\| (src == '%'))) {`
	`2592`	`+ if (last_ch == '_') {`
`2593`	`2593`	`p->srcptr = (char*)src;`
`2594`	`2594`	`src = eat_space(p);`
`2595`	`2595`	`}`
-Original file line number
+Diff line change
@@ @@ -1,6 +1,7 @@ @@
 ok1
 ok2
 -123
 -291
 +3
 +4
 ok5
 -123
 +6
 +7