| 298 | |
| 299 | |
| 300 | LUA_API void lua_arith (lua_State *L, int op) { |
| 301 | lua_lock(L); |
| 302 | if (op != LUA_OPUNM && op != LUA_OPBNOT) |
| 303 | api_checknelems(L, 2); /* all other operations expect two operands */ |
| 304 | else { /* for unary operations, add fake 2nd operand */ |
| 305 | api_checknelems(L, 1); |
| 306 | setobjs2s(L, L->top, L->top - 1); |
| 307 | api_incr_top(L); |
| 308 | } |
| 309 | /* first operand at top - 2, second at top - 1; result go to top - 2 */ |
| 310 | luaO_arith(L, op, L->top - 2, L->top - 1, L->top - 2); |
| 311 | L->top--; /* remove second operand */ |
| 312 | lua_unlock(L); |
| 313 | } |
| 314 | |
| 315 | |
| 316 | LUA_API int lua_compare (lua_State *L, int index1, int index2, int op) { |
nothing calls this directly
no test coverage detected