Lines Matching refs:loop
35 ** By default, use jump tables in the main interpreter loop on gcc
169 ** of the loop. Return true if the loop must not run; otherwise, '*p'
177 ** is too negative, the loop should not run, because any initial
180 ** correct; even a limit of LUA_MININTEGER would run the loop once for
205 ** Prepare a numerical for loop (opcode OP_FORPREP).
206 ** Return true to skip the loop. Otherwise,
209 ** ra + 1 : loop counter (integer loops) or limit (float loops)
217 if (ttisinteger(pinit) && ttisinteger(pstep)) { /* integer loop? */
225 return 1; /* skip the loop */
226 else { /* prepare loop counter */
228 if (step > 0) { /* ascending loop? */
233 else { /* step < 0; descending loop */
255 return 1; /* skip the loop */
269 ** Execute a step of a float numerical for loop, returning
270 ** true iff the loop must continue. (The integer case is
285 return 0; /* finish the loop */
296 int loop; /* counter to avoid infinite loops */
298 for (loop = 0; loop < MAXTAGLOOP; loop++) {
326 luaG_runerror(L, "'__index' chain too long; possible loop");
339 int loop; /* counter to avoid infinite loops */
340 for (loop = 0; loop < MAXTAGLOOP; loop++) {
372 /* else 'return luaV_finishset(L, t, key, val, slot)' (loop) */
374 luaG_runerror(L, "'__newindex' chain too long; possible loop");
1033 ** Function 'luaV_execute': main interpreter loop
1154 /* main loop of interpreter */
1730 if (ttisinteger(s2v(ra + 2))) { /* integer loop? */
1742 else if (floatforloop(ra)) /* float loop */
1744 updatetrap(ci); /* allows a signal to break the loop */
1750 pc += GETARG_Bx(i) + 1; /* skip the loop */
1779 if (!ttisnil(s2v(ra + 4))) { /* continue loop? */