Lines Matching refs:top
58 api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index");
59 if (o >= L->top) return NONVALIDVALUE;
63 api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index");
64 return L->top + idx;
95 if (L->stack_last - L->top > size) /* stack large enough? */
98 int inuse = cast_int(L->top - L->stack) + EXTRA_STACK;
104 if (res && ci->top < L->top + size)
105 ci->top = L->top + size; /* adjust frame top */
117 api_check(from, to->ci->top - to->top >= n, "not enough elements to move");
118 from->top -= n;
120 setobj2s(to, to->top++, from->top + i);
155 : cast_int(L->top - L->ci->func + idx);
160 return cast_int(L->top - (L->ci->func + 1));
168 api_check(L, idx <= L->stack_last - (func + 1), "new top too large");
169 while (L->top < (func + 1) + idx)
170 setnilvalue(L->top++);
171 L->top = (func + 1) + idx;
174 api_check(L, -(idx+1) <= (L->top - (func + 1)), "invalid new top");
175 L->top += idx+1; /* `subtract' index (index is negative) */
186 while (++p < L->top) setobjs2s(L, p-1, p);
187 L->top--;
198 for (q = L->top; q > p; q--) /* use L->top as a temporary */
200 setobjs2s(L, p, L->top);
219 moveto(L, L->top - 1, idx);
220 L->top--;
236 setobj2s(L, L->top, index2addr(L, idx));
300 setobjs2s(L, L->top, L->top - 1);
301 L->top++;
303 o1 = L->top - 2;
304 o2 = L->top - 1;
310 L->top--;
466 setnilvalue(L->top);
474 setnvalue(L->top, n);
475 luai_checknum(L, L->top,
484 setnvalue(L->top, cast_num(n));
494 setnvalue(L->top, n);
505 setsvalue2s(L, L->top, ts);
522 setsvalue2s(L, L->top, ts);
557 setfvalue(L->top, fn);
566 L->top -= n;
568 setobj2n(L, &cl->c.upvalue[n], L->top + n);
569 setclCvalue(L, L->top, cl);
578 setbvalue(L->top, (b != 0)); /* ensure that true is 1 */
586 setpvalue(L->top, p);
594 setthvalue(L, L->top, L);
612 setsvalue2s(L, L->top++, luaS_new(L, var));
613 luaV_gettable(L, gt, L->top - 1, L->top - 1);
622 luaV_gettable(L, t, L->top - 1, L->top - 1);
631 setsvalue2s(L, L->top, luaS_new(L, k));
633 luaV_gettable(L, t, L->top - 1, L->top - 1);
643 setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1));
653 setobj2s(L, L->top, luaH_getint(hvalue(t), n));
666 setobj2s(L, L->top, luaH_get(hvalue(t), &k));
677 sethvalue(L, L->top, t);
705 sethvalue(L, L->top, mt);
720 sethvalue(L, L->top, uvalue(o)->env);
722 setnilvalue(L->top);
739 setsvalue2s(L, L->top++, luaS_new(L, var));
740 luaV_settable(L, gt, L->top - 1, L->top - 2);
741 L->top -= 2; /* pop value and key */
751 luaV_settable(L, t, L->top - 2, L->top - 1);
752 L->top -= 2; /* pop index and value */
762 setsvalue2s(L, L->top++, luaS_new(L, k));
763 luaV_settable(L, t, L->top - 1, L->top - 2);
764 L->top -= 2; /* pop value and key */
775 setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1);
777 luaC_barrierback(L, gcvalue(t), L->top-1);
778 L->top -= 2;
789 luaH_setint(L, hvalue(t), n, L->top - 1);
790 luaC_barrierback(L, gcvalue(t), L->top-1);
791 L->top--;
804 setobj2t(L, luaH_set(L, hvalue(t), &k), L->top - 1);
805 luaC_barrierback(L, gcvalue(t), L->top - 1);
806 L->top--;
817 if (ttisnil(L->top - 1))
820 api_check(L, ttistable(L->top - 1), "table expected");
821 mt = hvalue(L->top - 1);
845 L->top--;
857 if (ttisnil(L->top - 1))
860 api_check(L, ttistable(L->top - 1), "table expected");
861 uvalue(o)->env = hvalue(L->top - 1);
862 luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1));
864 L->top--;
875 api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)), \
897 func = L->top - (nargs+1);
945 c.func = L->top - (nargs+1); /* function to be called */
981 LClosure *f = clLvalue(L->top - 1); /* get newly created function */
1001 o = L->top - 1;
1119 more = luaH_next(L, hvalue(t), L->top - 1);
1124 L->top -= 1; /* remove key */
1138 setsvalue2s(L, L->top, luaS_newlstr(L, "", 0));
1150 luaV_objlen(L, L->top, t);
1179 setuvalue(L, L->top, u);
1218 setobj2s(L, L->top, val);
1236 L->top--;
1237 setobj(L, val, L->top);
1238 luaC_barrier(L, owner, L->top);