mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-04-18 19:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

no need to avoid calling ctype functions as now they are implemented

Browse Source 
by us (no inefficiencies due to accessing locale information)
This commit is contained in:
Roberto Ierusalimschy 2010-04-15 16:44:43 -03:00
parent b7be05ad27
commit cf22133b69
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lobject.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 2.37 2010/04/05 16:26:37 roberto Exp roberto $ ** $Id: lobject.c,v 2.38 2010/04/13 20:48:12 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
*/ */
@ -112,10 +112,8 @@ int luaO_str2d (const char *s, lua_Number *result) {
if (endptr == s) return 0; /* conversion failed */ if (endptr == s) return 0; /* conversion failed */
if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */ if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */
*result = cast_num(strtoul(s, &endptr, 16)); *result = cast_num(strtoul(s, &endptr, 16));
if (*endptr == '\0') return 1; /* most common case */
while (lisspace(cast(unsigned char, *endptr))) endptr++; while (lisspace(cast(unsigned char, *endptr))) endptr++;
if (*endptr != '\0') return 0; /* invalid trailing characters? */ return (*endptr == '\0'); /* OK if no trailing characters */
return 1;
} }