| 197 | |
| 198 | |
| 199 | static int call_orderTM (lua_State *L, const TValue *p1, const TValue *p2, |
| 200 | TMS event) { |
| 201 | const TValue *tm1 = luaT_gettmbyobj(L, p1, event); |
| 202 | const TValue *tm2; |
| 203 | if (ttisnil(tm1)) return -1; /* no metamethod? */ |
| 204 | tm2 = luaT_gettmbyobj(L, p2, event); |
| 205 | if (!luaO_rawequalObj(tm1, tm2)) /* different metamethods? */ |
| 206 | return -1; |
| 207 | callTMres(L, L->top, tm1, p1, p2); |
| 208 | return !l_isfalse(L->top); |
| 209 | } |
| 210 | |
| 211 | |
| 212 | static int l_strcmp (const TString *ls, const TString *rs) { |
no test coverage detected