rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

no need to cast '*s' to unsigned char when we know it is a digit + 

no need to call 'luaO_hexavalue' for decimal digits
This commit is contained in:
Roberto Ierusalimschy 2014-11-04 17:16:25 -02:00
parent cfabcbfb17
commit 81c39a5244
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lobject.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 2.97 2014/10/28 18:41:38 roberto Exp roberto $ ** $Id: lobject.c,v 2.98 2014/11/02 19:19:04 roberto Exp roberto $
** Some generic functions over Lua objects ** Some generic functions over Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -204,7 +204,7 @@ static lua_Number lua_strx2number (const char *s, char **endptr) {
if (sigdig == 0 && *s == '0') /* non-significant digit (zero)? */ if (sigdig == 0 && *s == '0') /* non-significant digit (zero)? */
nosigdig++; nosigdig++;
else if (++sigdig <= MAXSIGDIG) /* can read it without overflow? */ else if (++sigdig <= MAXSIGDIG) /* can read it without overflow? */
r = (r * cast_num(16.0)) + luaO_hexavalue(cast_uchar(*s)); r = (r * cast_num(16.0)) + luaO_hexavalue(*s);
else e++; /* too many digits; ignore, but still count for exponent */ else e++; /* too many digits; ignore, but still count for exponent */
if (dot) e--; /* decimal digit? correct exponent */ if (dot) e--; /* decimal digit? correct exponent */
} }
@ -259,13 +259,13 @@ static const char *l_str2int (const char *s, lua_Integer *result) {
(s[1] == 'x' || s[1] == 'X')) { /* hex? */ (s[1] == 'x' || s[1] == 'X')) { /* hex? */
s += 2; /* skip '0x' */ s += 2; /* skip '0x' */
for (; lisxdigit(cast_uchar(*s)); s++) { for (; lisxdigit(cast_uchar(*s)); s++) {
a = a * 16 + luaO_hexavalue(cast_uchar(*s)); a = a * 16 + luaO_hexavalue(*s);
empty = 0; empty = 0;
} }
} }
else { /* decimal */ else { /* decimal */
for (; lisdigit(cast_uchar(*s)); s++) { for (; lisdigit(cast_uchar(*s)); s++) {
a = a * 10 + luaO_hexavalue(cast_uchar(*s)); a = a * 10 + *s - '0';
empty = 0; empty = 0;
} }
} }