Fix underscore bug in nqp_radix opcode.

pmichaud · pmichaud · commit 0eea302ae6bd · 2011-07-14T14:03:43.000-05:00
diff --git a/src/ops/nqp.ops b/src/ops/nqp.ops
@@ -1320,6 +1320,7 @@ inline op nqp_radix(out PMC, in INT, in STR, in INT, in INT) :base_core {
         if (zpos >= chars) break;
         ch = STRING_ord(interp, str, zpos);
         if (ch != '_') continue;
+        zpos++;
         if (zpos >= chars) break;
         ch = STRING_ord(interp, str, zpos);
     }

Original file line number	Diff line number	Diff line change
`@@ -1320,6 +1320,7 @@ inline op nqp_radix(out PMC, in INT, in STR, in INT, in INT) :base_core {`
`1320`	`1320`	`if (zpos >= chars) break;`
`1321`	`1321`	`ch = STRING_ord(interp, str, zpos);`
`1322`	`1322`	`if (ch != '_') continue;`
	`1323`	`+ zpos++;`
`1323`	`1324`	`if (zpos >= chars) break;`
`1324`	`1325`	`ch = STRING_ord(interp, str, zpos);`
`1325`	`1326`	`}`