| 4111 | |
| 4112 | |
| 4113 | int luaK_exp2RK (FuncState *fs, expdesc *e) { |
| 4114 | luaK_exp2val(fs, e); |
| 4115 | switch (e->k) { |
| 4116 | case VKNUM: |
| 4117 | case VTRUE: |
| 4118 | case VFALSE: |
| 4119 | case VNIL: { |
| 4120 | if (fs->nk <= MAXINDEXRK) { /* constant fit in RK operand? */ |
| 4121 | e->u.s.info = (e->k == VNIL) ? nilK(fs) : |
| 4122 | (e->k == VKNUM) ? luaK_numberK(fs, e->u.nval) : |
| 4123 | boolK(fs, (e->k == VTRUE)); |
| 4124 | e->k = VK; |
| 4125 | return RKASK(e->u.s.info); |
| 4126 | } |
| 4127 | else break; |
| 4128 | } |
| 4129 | case VK: { |
| 4130 | if (e->u.s.info <= MAXINDEXRK) /* constant fit in argC? */ |
| 4131 | return RKASK(e->u.s.info); |
| 4132 | else break; |
| 4133 | } |
| 4134 | default: break; |
| 4135 | } |
| 4136 | /* not a constant in the right range: put it in a register */ |
| 4137 | return luaK_exp2anyreg(fs, e); |
| 4138 | } |
| 4139 | |
| 4140 | |
| 4141 | void luaK_storevar (FuncState *fs, expdesc *var, expdesc *ex) { |
no test coverage detected