Fix string to number conversion.

Mike Pall · Mike Pall · commit e6b0875a7e8f · 2015-02-22T23:07:49.000+01:00
Thanks to Lesley De Cruz.
diff --git a/src/lj_strscan.c b/src/lj_strscan.c
@@ -199,7 +199,7 @@ static StrScanFmt strscan_dec(const uint8_t *p, TValue *o,
       *xip++ = d + ((*p != '.' ? *p : *++p) & 15); p++;
     }
     /* Scan and realign trailing digit. */
-    if (i) *xip++ = 10 * ((*p != '.' ? *p : *++p) & 15), ex10--, p++;
+    if (i) *xip++ = 10 * ((*p != '.' ? *p : *++p) & 15), ex10--, dig++, p++;
 
     /* Summarize rounding-effect of excess digits. */
     if (dig > STRSCAN_MAXDIG) {

Original file line number	Diff line number	Diff line change
`@@ -199,7 +199,7 @@ static StrScanFmt strscan_dec(const uint8_t p, TValue o,`
`199`	`199`	`xip++ = d + ((p != '.' ? p : ++p) & 15); p++;`
`200`	`200`	`}`
`201`	`201`	`/* Scan and realign trailing digit. */`
`202`		`- if (i) xip++ = 10 ((p != '.' ? p : *++p) & 15), ex10--, p++;`
	`202`	`+ if (i) xip++ = 10 ((p != '.' ? p : *++p) & 15), ex10--, dig++, p++;`
`203`	`203`
`204`	`204`	`/* Summarize rounding-effect of excess digits. */`
`205`	`205`	`if (dig > STRSCAN_MAXDIG) {`