627 static int constfolding (OpCode op, expdesc *e1, expdesc *e2) {  in constfolding()  argument
629   if (!isnumeral(e1) || !isnumeral(e2)) return 0;  in constfolding()
630   v1 = e1->u.nval;  in constfolding()
648   e1->u.nval = r;  in constfolding()
653 static void codearith (FuncState *fs, OpCode op, expdesc *e1, expdesc *e2) {  in codearith()  argument
654   if (constfolding(op, e1, e2))  in codearith()
658     int o1 = luaK_exp2RK(fs, e1);  in codearith()
660       freeexp(fs, e1);  in codearith()
665       freeexp(fs, e1);  in codearith()
667     e1->u.s.info = luaK_codeABC(fs, op, 0, o1, o2);  in codearith()
668     e1->k = VRELOCABLE;  in codearith()
673 static void codecomp (FuncState *fs, OpCode op, int cond, expdesc *e1,  in codecomp()  argument
675   int o1 = luaK_exp2RK(fs, e1);  in codecomp()
678   freeexp(fs, e1);  in codecomp()
684   e1->u.s.info = condjump(fs, op, cond, o1, o2);  in codecomp()
685   e1->k = VJMP;  in codecomp()
737 void luaK_posfix (FuncState *fs, BinOpr op, expdesc *e1, expdesc *e2) {  in luaK_posfix()  argument
740       lua_assert(e1->t == NO_JUMP);  /* list must be closed */  in luaK_posfix()
742       luaK_concat(fs, &e2->f, e1->f);  in luaK_posfix()
743       *e1 = *e2;  in luaK_posfix()
747       lua_assert(e1->f == NO_JUMP);  /* list must be closed */  in luaK_posfix()
749       luaK_concat(fs, &e2->t, e1->t);  in luaK_posfix()
750       *e1 = *e2;  in luaK_posfix()
756         lua_assert(e1->u.s.info == GETARG_B(getcode(fs, e2))-1);  in luaK_posfix()
757         freeexp(fs, e1);  in luaK_posfix()
758         SETARG_B(getcode(fs, e2), e1->u.s.info);  in luaK_posfix()
759         e1->k = VRELOCABLE; e1->u.s.info = e2->u.s.info;  in luaK_posfix()
763         codearith(fs, OP_CONCAT, e1, e2);  in luaK_posfix()
767     case OPR_ADD: codearith(fs, OP_ADD, e1, e2); break;  in luaK_posfix()
768     case OPR_SUB: codearith(fs, OP_SUB, e1, e2); break;  in luaK_posfix()
769     case OPR_MUL: codearith(fs, OP_MUL, e1, e2); break;  in luaK_posfix()
770     case OPR_DIV: codearith(fs, OP_DIV, e1, e2); break;  in luaK_posfix()
771     case OPR_MOD: codearith(fs, OP_MOD, e1, e2); break;  in luaK_posfix()
772     case OPR_POW: codearith(fs, OP_POW, e1, e2); break;  in luaK_posfix()
773     case OPR_EQ: codecomp(fs, OP_EQ, 1, e1, e2); break;  in luaK_posfix()
774     case OPR_NE: codecomp(fs, OP_EQ, 0, e1, e2); break;  in luaK_posfix()
775     case OPR_LT: codecomp(fs, OP_LT, 1, e1, e2); break;  in luaK_posfix()
776     case OPR_LE: codecomp(fs, OP_LE, 1, e1, e2); break;  in luaK_posfix()
777     case OPR_GT: codecomp(fs, OP_LT, 0, e1, e2); break;  in luaK_posfix()
778     case OPR_GE: codecomp(fs, OP_LE, 0, e1, e2); break;  in luaK_posfix()