** Calls an order tag method. */
| 198 | ** Calls an order tag method. |
| 199 | */ |
| 200 | int luaT_callorderTM (lua_State *L, const TValue *p1, const TValue *p2, |
| 201 | TMS event) { |
| 202 | int tag = callbinTM(L, p1, p2, L->top.p, event); /* try original event */ |
| 203 | if (tag >= 0) /* found tag method? */ |
| 204 | return !tagisfalse(tag); |
| 205 | luaG_ordererror(L, p1, p2); /* no metamethod found */ |
| 206 | return 0; /* to avoid warnings */ |
| 207 | } |
| 208 | |
| 209 | |
| 210 | int luaT_callorderiTM (lua_State *L, const TValue *p1, int v2, |
no test coverage detected