| 1315 | |
| 1316 | |
| 1317 | static void fornum (LexState *ls, TString *varname, int line) { |
| 1318 | /* fornum -> NAME = exp1,exp1[,exp1] forbody */ |
| 1319 | FuncState *fs = ls->fs; |
| 1320 | int base = fs->freereg; |
| 1321 | new_localvarliteral(ls, "(for index)"); |
| 1322 | new_localvarliteral(ls, "(for limit)"); |
| 1323 | new_localvarliteral(ls, "(for step)"); |
| 1324 | new_localvar(ls, varname); |
| 1325 | checknext(ls, '='); |
| 1326 | exp1(ls); /* initial value */ |
| 1327 | checknext(ls, ','); |
| 1328 | exp1(ls); /* limit */ |
| 1329 | if (testnext(ls, ',')) |
| 1330 | exp1(ls); /* optional step */ |
| 1331 | else { /* default step = 1 */ |
| 1332 | luaK_codek(fs, fs->freereg, luaK_intK(fs, 1)); |
| 1333 | luaK_reserveregs(fs, 1); |
| 1334 | } |
| 1335 | forbody(ls, base, line, 1, 1); |
| 1336 | } |
| 1337 | |
| 1338 | |
| 1339 | static void forlist (LexState *ls, TString *indexname) { |
no test coverage detected