Try to code a binary operator negating its second operand. ** For the metamethod, 2nd operand must keep its original value. */
| 1462 | ** For the metamethod, 2nd operand must keep its original value. |
| 1463 | */ |
| 1464 | static int finishbinexpneg (FuncState *fs, expdesc *e1, expdesc *e2, |
| 1465 | OpCode op, int line, TMS event) { |
| 1466 | if (!isKint(e2)) |
| 1467 | return 0; /* not an integer constant */ |
| 1468 | else { |
| 1469 | lua_Integer i2 = e2->u.ival; |
| 1470 | if (!(fitsC(i2) && fitsC(-i2))) |
| 1471 | return 0; /* not in the proper range */ |
| 1472 | else { /* operating a small integer constant */ |
| 1473 | int v2 = cast_int(i2); |
| 1474 | finishbinexpval(fs, e1, e2, op, int2sC(-v2), 0, line, OP_MMBINI, event); |
| 1475 | /* correct metamethod argument */ |
| 1476 | SETARG_B(fs->f->code[fs->pc - 1], int2sC(v2)); |
| 1477 | return 1; /* successfully coded */ |
| 1478 | } |
| 1479 | } |
| 1480 | } |
| 1481 | |
| 1482 | |
| 1483 | static void swapexps (expdesc *e1, expdesc *e2) { |
no test coverage detected