From a4c35a3269f0581da212b3c4abd04989f88425ce Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Mon, 10 Dec 2001 20:10:30 -0200 Subject: it doesn't pay to optimize absence when it is an error --- ltm.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'ltm.c') diff --git a/ltm.c b/ltm.c index 5d1c83d1..5e5f1ab2 100644 --- a/ltm.c +++ b/ltm.c @@ -39,6 +39,10 @@ void luaT_init (lua_State *L) { } +/* +** function to be used with macro "fasttm": optimized for absence of +** tag methods +*/ const TObject *luaT_gettm (Table *events, TMS event, TString *ename) { const TObject *tm = luaH_getstr(events, ename); if (ttype(tm) == LUA_TNIL) { /* no tag method? */ @@ -50,13 +54,14 @@ const TObject *luaT_gettm (Table *events, TMS event, TString *ename) { const TObject *luaT_gettmbyobj (lua_State *L, const TObject *o, TMS event) { + TString *ename = G(L)->tmname[event]; switch (ttype(o)) { case LUA_TTABLE: - return fasttm(L, hvalue(o)->eventtable, event); + return luaH_getstr(hvalue(o)->eventtable, ename); case LUA_TUSERDATA: - return fasttm(L, uvalue(o)->uv.eventtable, event); + return luaH_getstr(uvalue(o)->uv.eventtable, ename); default: - return NULL; + return &luaO_nilobject; } } -- cgit v1.2.3-55-g6feb