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

lua_settag does not pop its argument

This commit is contained in:
Roberto Ierusalimschy 2000-10-24 17:19:15 -02:00
parent cdc8139e29
commit aadc35449e
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lapi.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.106 2000/10/06 19:29:26 roberto Exp roberto $ ** $Id: lapi.c,v 1.107 2000/10/20 16:39:03 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -433,7 +433,6 @@ LUA_API void lua_settag (lua_State *L, int tag) {
luaO_verror(L, "cannot change the tag of a %.20s", luaO_verror(L, "cannot change the tag of a %.20s",
luaO_typename(L->top-1)); luaO_typename(L->top-1));
} }
L->top--;
} }

5
lbaselib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.12 2000/10/20 16:39:03 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.13 2000/10/20 16:57:42 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -138,8 +138,7 @@ static int luaB_settag (lua_State *L) {
luaL_checktype(L, 1, LUA_TTABLE); luaL_checktype(L, 1, LUA_TTABLE);
lua_pushvalue(L, 1); /* push table */ lua_pushvalue(L, 1); /* push table */
lua_settag(L, luaL_check_int(L, 2)); lua_settag(L, luaL_check_int(L, 2));
lua_pop(L, 1); /* remove second argument */ return 1; /* return table */
return 1; /* return first argument */
} }
static int luaB_newtag (lua_State *L) { static int luaB_newtag (lua_State *L) {