diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2011-06-23 13:01:06 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2011-06-23 13:01:06 -0300 |
| commit | 59547c6cda8ac1371b473ec6f1088a35bcec7558 (patch) | |
| tree | 787b7a681cf1524d854abc361caf85f91e1fe4a8 /lobject.c | |
| parent | 3d3355b4f3394d7c223daf2b76c3cf8d854e24a6 (diff) | |
| download | lua-59547c6cda8ac1371b473ec6f1088a35bcec7558.tar.gz lua-59547c6cda8ac1371b473ec6f1088a35bcec7558.tar.bz2 lua-59547c6cda8ac1371b473ec6f1088a35bcec7558.zip | |
macro 'ltoupper' instead of 'lisupper' (more usefull for Lua)
Diffstat (limited to 'lobject.c')
| -rw-r--r-- | lobject.c | 5 |
1 files changed, 2 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lobject.c,v 2.49 2011/05/31 18:24:36 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 2.50 2011/06/16 14:13:22 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 | */ |
| @@ -86,8 +86,7 @@ lua_Number luaO_arith (int op, lua_Number v1, lua_Number v2) { | |||
| 86 | 86 | ||
| 87 | int luaO_hexavalue (int c) { | 87 | int luaO_hexavalue (int c) { |
| 88 | if (lisdigit(c)) return c - '0'; | 88 | if (lisdigit(c)) return c - '0'; |
| 89 | else if (lisupper(c)) return c - 'A' + 10; | 89 | else return ltoupper(c) - 'A' + 10; |
| 90 | else return c - 'a' + 10; | ||
| 91 | } | 90 | } |
| 92 | 91 | ||
| 93 | 92 | ||