| 760 | |
| 761 | |
| 762 | void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e, int line) { |
| 763 | expdesc e2; |
| 764 | e2.t = e2.f = NO_JUMP; e2.k = VKNUM; e2.u.nval = 0; |
| 765 | switch (op) { |
| 766 | case OPR_MINUS: { |
| 767 | if (isnumeral(e)) /* minus constant? */ |
| 768 | e->u.nval = luai_numunm(NULL, e->u.nval); /* fold it */ |
| 769 | else { |
| 770 | luaK_exp2anyreg(fs, e); |
| 771 | codearith(fs, OP_UNM, e, &e2, line); |
| 772 | } |
| 773 | break; |
| 774 | } |
| 775 | case OPR_NOT: codenot(fs, e); break; |
| 776 | case OPR_LEN: { |
| 777 | luaK_exp2anyreg(fs, e); /* cannot operate on constants */ |
| 778 | codearith(fs, OP_LEN, e, &e2, line); |
| 779 | break; |
| 780 | } |
| 781 | default: lua_assert(0); |
| 782 | } |
| 783 | } |
| 784 | |
| 785 | |
| 786 | void luaK_infix (FuncState *fs, BinOpr op, expdesc *v) { |
no test coverage detected