GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-28 06:03:00 +08:00
Code Issues Projects Releases Wiki Activity

no more opnames in binary tag methods

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2001-06-20 14:22:46 -03:00
parent 8e586c13fc
commit 878979cef7
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.185 2001/06/15 19:17:17 roberto Exp roberto $ ** $Id: lvm.c,v 1.186 2001/06/15 20:36:57 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -224,7 +224,6 @@ void luaV_setglobal (lua_State *L, TString *name, StkId val) {
static int call_binTM (lua_State *L, const TObject *p1, const TObject *p2, static int call_binTM (lua_State *L, const TObject *p1, const TObject *p2,
TObject *res, TMS event) { TObject *res, TMS event) {
TString *opname;
Closure *tm = luaT_gettmbyObj(G(L), p1, event); /* try first operand */ Closure *tm = luaT_gettmbyObj(G(L), p1, event); /* try first operand */
if (tm == NULL) { if (tm == NULL) {
tm = luaT_gettmbyObj(G(L), p2, event); /* try second operand */ tm = luaT_gettmbyObj(G(L), p2, event); /* try second operand */
@ -234,8 +233,7 @@ static int call_binTM (lua_State *L, const TObject *p1, const TObject *p2,
return 0; /* no tag method */ return 0; /* no tag method */
} }
} }
opname = luaS_new(L, luaT_eventname[event]); setTMresult(L, res, callTM(L, tm, l_s("oo"), p1, p2));
setTMresult(L, res, callTM(L, tm, l_s("oos"), p1, p2, opname));
return 1; return 1;
} }