Lines Matching refs:top
64 api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index");
65 if (o >= L->top) return NONVALIDVALUE;
69 api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index");
70 return L->top + idx;
102 if (L->stack_last - L->top > n) /* stack large enough? */
105 int inuse = cast_int(L->top - L->stack) + EXTRA_STACK;
111 if (res && ci->top < L->top + n)
112 ci->top = L->top + n; /* adjust frame top */
124 api_check(from, to->ci->top - to->top >= n, "stack overflow");
125 from->top -= n;
127 setobj2s(to, to->top, from->top + i);
128 to->top++; /* stack already checked by previous 'api_check' */
163 : cast_int(L->top - L->ci->func) + idx;
168 return cast_int(L->top - (L->ci->func + 1));
176 api_check(L, idx <= L->stack_last - (func + 1), "new top too large");
177 while (L->top < (func + 1) + idx)
178 setnilvalue(L->top++);
179 L->top = (func + 1) + idx;
182 api_check(L, -(idx+1) <= (L->top - (func + 1)), "invalid new top");
183 L->top += idx+1; /* 'subtract' index (index is negative) */
210 t = L->top - 1; /* end of stack segment being rotated */
239 setobj2s(L, L->top, index2addr(L, idx));
308 setobjs2s(L, L->top, L->top - 1);
311 /* first operand at top - 2, second at top - 1; result go to top - 2 */
312 luaO_arith(L, op, L->top - 2, L->top - 1, L->top - 2);
313 L->top--; /* remove second operand */
338 size_t sz = luaO_str2num(s, L->top);
452 setnilvalue(L->top);
460 setfltvalue(L->top, n);
468 setivalue(L->top, n);
483 setsvalue2s(L, L->top, ts);
494 setnilvalue(L->top);
498 setsvalue2s(L, L->top, ts);
535 setfvalue(L->top, fn);
544 L->top -= n;
546 setobj2n(L, &cl->upvalue[n], L->top + n);
549 setclCvalue(L, L->top, cl);
559 setbvalue(L->top, (b != 0)); /* ensure that true is 1 */
567 setpvalue(L->top, p);
575 setthvalue(L, L->top, L);
592 setobj2s(L, L->top, slot);
596 setsvalue2s(L, L->top, str);
598 luaV_finishget(L, t, L->top - 1, L->top - 1, slot);
601 return ttnov(L->top - 1);
616 luaV_gettable(L, t, L->top - 1, L->top - 1);
618 return ttnov(L->top - 1);
634 setobj2s(L, L->top, slot);
638 setivalue(L->top, n);
640 luaV_finishget(L, t, L->top - 1, L->top - 1, slot);
643 return ttnov(L->top - 1);
652 setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1));
654 return ttnov(L->top - 1);
663 setobj2s(L, L->top, luaH_getint(hvalue(t), n));
666 return ttnov(L->top - 1);
677 setobj2s(L, L->top, luaH_get(hvalue(t), &k));
680 return ttnov(L->top - 1);
688 sethvalue(L, L->top, t);
715 sethvalue(L, L->top, mt);
729 getuservalue(L, uvalue(o), L->top);
732 return ttnov(L->top - 1);
741 ** t[k] = value at the top of the stack (where 'k' is a string)
747 if (luaV_fastset(L, t, str, slot, luaH_getstr, L->top - 1))
748 L->top--; /* pop value */
750 setsvalue2s(L, L->top, str); /* push 'str' (to make it a TValue) */
752 luaV_finishset(L, t, L->top - 1, L->top - 2, slot);
753 L->top -= 2; /* pop value and key */
771 luaV_settable(L, t, L->top - 2, L->top - 1);
772 L->top -= 2; /* pop index and value */
789 if (luaV_fastset(L, t, n, slot, luaH_getint, L->top - 1))
790 L->top--; /* pop value */
792 setivalue(L->top, n);
794 luaV_finishset(L, t, L->top - 1, L->top - 2, slot);
795 L->top -= 2; /* pop value and key */
808 slot = luaH_set(L, hvalue(o), L->top - 2);
809 setobj2t(L, slot, L->top - 1);
811 luaC_barrierback(L, hvalue(o), L->top-1);
812 L->top -= 2;
823 luaH_setint(L, hvalue(o), n, L->top - 1);
824 luaC_barrierback(L, hvalue(o), L->top-1);
825 L->top--;
839 setobj2t(L, slot, L->top - 1);
840 luaC_barrierback(L, hvalue(o), L->top - 1);
841 L->top--;
852 if (ttisnil(L->top - 1))
855 api_check(L, ttistable(L->top - 1), "table expected");
856 mt = hvalue(L->top - 1);
880 L->top--;
892 setuservalue(L, uvalue(o), L->top - 1);
893 luaC_barrier(L, gcvalue(o), L->top - 1);
894 L->top--;
905 api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)), \
918 func = L->top - (nargs+1);
966 c.func = L->top - (nargs+1); /* function to be called */
1001 LClosure *f = clLvalue(L->top - 1); /* get newly created function */
1021 o = L->top - 1;
1129 more = luaH_next(L, hvalue(t), L->top - 1);
1134 L->top -= 1; /* remove key */
1147 setsvalue2s(L, L->top, luaS_newlstr(L, "", 0));
1160 luaV_objlen(L, L->top, t);
1188 setuvalue(L, L->top, u);
1228 setobj2s(L, L->top, val);
1247 L->top--;
1248 setobj(L, val, L->top);
1249 if (owner) { luaC_barrier(L, owner, L->top); }