nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

warnings

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1999-03-01 17:22:16 -03:00
parent ae9fd122fa
commit ab8ea5c38a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lbuiltin.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lbuiltin.c,v 1.53 1999/02/22 19:13:12 roberto Exp roberto $ ** $Id: lbuiltin.c,v 1.54 1999/02/23 14:57:28 roberto Exp roberto $
** Built-in functions ** Built-in functions
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -147,7 +147,7 @@ static void luaB_tonumber (void) {
long n; long n;
luaL_arg_check(0 <= base && base <= 36, 2, "base out of range"); luaL_arg_check(0 <= base && base <= 36, 2, "base out of range");
n = strtol(s, &s, base); n = strtol(s, &s, base);
while (isspace(*s)) s++; /* skip trailing spaces */ while (isspace((unsigned char)*s)) s++; /* skip trailing spaces */
if (*s) lua_pushnil(); /* invalid format: return nil */ if (*s) lua_pushnil(); /* invalid format: return nil */
else lua_pushnumber(n); else lua_pushnumber(n);
} }
@@ -190,7 +190,7 @@ static void luaB_settag (void) {
lua_Object o = luaL_tablearg(1); lua_Object o = luaL_tablearg(1);
lua_pushobject(o); lua_pushobject(o);
lua_settag(luaL_check_int(2)); lua_settag(luaL_check_int(2));
lua_pushobject(o); /* returns first argument */ lua_pushobject(o); /* return first argument */
} }
static void luaB_newtag (void) { static void luaB_newtag (void) {
@@ -649,7 +649,7 @@ static void testC (void) {
case 'N' : lua_pushstring(lua_nextvar(lua_getstring(reg[getnum(s)]))); case 'N' : lua_pushstring(lua_nextvar(lua_getstring(reg[getnum(s)])));
break; break;
case 'n' : { int n=getnum(s); case 'n' : { int n=getnum(s);
n=lua_next(reg[n], lua_getnumber(reg[getnum(s)])); n=lua_next(reg[n], (int)lua_getnumber(reg[getnum(s)]));
lua_pushnumber(n); break; lua_pushnumber(n); break;
} }
default: luaL_verror("unknown command in `testC': %c", *(s-1)); default: luaL_verror("unknown command in `testC': %c", *(s-1));