| 184 | |
| 185 | |
| 186 | static int call_orderTM (lua_State *L, const TValue *p1, const TValue *p2, |
| 187 | TMS event) { |
| 188 | const TValue *tm1 = luaT_gettmbyobj(L, p1, event); |
| 189 | const TValue *tm2; |
| 190 | if (ttisnil(tm1)) return -1; /* no metamethod? */ |
| 191 | tm2 = luaT_gettmbyobj(L, p2, event); |
| 192 | if (!luaO_rawequalObj(tm1, tm2)) /* different metamethods? */ |
| 193 | return -1; |
| 194 | callTMres(L, L->top, tm1, p1, p2); |
| 195 | return !l_isfalse(L->top); |
| 196 | } |
| 197 | |
| 198 | |
| 199 | static int l_strcmp (const TString *ls, const TString *rs) { |
no test coverage detected