diff options
| -rw-r--r-- | lobject.c | 6 |
1 files changed, 2 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lobject.c,v 2.37 2010/04/05 16:26:37 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 2.38 2010/04/13 20:48:12 roberto Exp roberto $ |
| 3 | ** Some generic functions over Lua objects | 3 | ** Some generic functions over Lua objects |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -112,10 +112,8 @@ int luaO_str2d (const char *s, lua_Number *result) { | |||
| 112 | if (endptr == s) return 0; /* conversion failed */ | 112 | if (endptr == s) return 0; /* conversion failed */ |
| 113 | if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */ | 113 | if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */ |
| 114 | *result = cast_num(strtoul(s, &endptr, 16)); | 114 | *result = cast_num(strtoul(s, &endptr, 16)); |
| 115 | if (*endptr == '\0') return 1; /* most common case */ | ||
| 116 | while (lisspace(cast(unsigned char, *endptr))) endptr++; | 115 | while (lisspace(cast(unsigned char, *endptr))) endptr++; |
| 117 | if (*endptr != '\0') return 0; /* invalid trailing characters? */ | 116 | return (*endptr == '\0'); /* OK if no trailing characters */ |
| 118 | return 1; | ||
| 119 | } | 117 | } |
| 120 | 118 | ||
| 121 | 119 | ||
