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

lua_settagmethod does not return old tag method

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2000-10-31 11:10:24 -02:00
parent 03770ecfc9
commit 67c1afff59
5 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ltm.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: ltm.c,v 1.54 2000/10/05 13:00:17 roberto Exp roberto $
** $Id: ltm.c,v 1.55 2000/10/20 16:39:03 roberto Exp roberto $
** Tag methods
** See Copyright Notice in lua.h
*/
@@ -141,7 +141,6 @@ LUA_API void lua_gettagmethod (lua_State *L, int t, const char *event) {
LUA_API void lua_settagmethod (lua_State *L, int t, const char *event) {
Closure *oldtm;
int e = luaI_checkevent(L, event, t);
checktag(L, t);
if (!luaT_validevent(t, e))
@@ -149,7 +148,6 @@ LUA_API void lua_settagmethod (lua_State *L, int t, const char *event) {
luaT_eventname[e], luaO_typenames[t],
(t == LUA_TTABLE || t == LUA_TUSERDATA) ?
" with default tag" : "");
oldtm = luaT_gettm(L, t, e);
switch (ttype(L->top - 1)) {
case LUA_TNIL:
luaT_gettm(L, t, e) = NULL;
@@ -160,7 +158,6 @@ LUA_API void lua_settagmethod (lua_State *L, int t, const char *event) {
default:
lua_error(L, "tag method must be a function (or nil)");
}
clvalue(L->top - 1) = oldtm;
ttype(L->top - 1) = (oldtm ? LUA_TFUNCTION : LUA_TNIL);
L->top--;
}