Lines Matching refs:top
59 api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index"); in index2addr()
60 if (o >= L->top) return NONVALIDVALUE; in index2addr()
64 api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index"); in index2addr()
65 return L->top + idx; in index2addr()
96 if (L->stack_last - L->top > size) /* stack large enough? */ in lua_checkstack()
99 int inuse = cast_int(L->top - L->stack) + EXTRA_STACK; in lua_checkstack()
105 if (res && ci->top < L->top + size) in lua_checkstack()
106 ci->top = L->top + size; /* adjust frame top */ in lua_checkstack()
118 api_check(from, to->ci->top - to->top >= n, "not enough elements to move"); in lua_xmove()
119 from->top -= n; in lua_xmove()
121 setobj2s(to, to->top++, from->top + i); in lua_xmove()
156 : cast_int(L->top - L->ci->func + idx); in lua_absindex()
161 return cast_int(L->top - (L->ci->func + 1)); in lua_gettop()
170 while (L->top < (func + 1) + idx) in lua_settop()
171 setnilvalue(L->top++); in lua_settop()
172 L->top = (func + 1) + idx; in lua_settop()
175 api_check(L, -(idx+1) <= (L->top - (func + 1)), "invalid new top"); in lua_settop()
176 L->top += idx+1; /* `subtract' index (index is negative) */ in lua_settop()
187 while (++p < L->top) setobjs2s(L, p-1, p); in lua_remove()
188 L->top--; in lua_remove()
199 for (q = L->top; q > p; q--) /* use L->top as a temporary */ in lua_insert()
201 setobjs2s(L, p, L->top); in lua_insert()
220 moveto(L, L->top - 1, idx); in lua_replace()
221 L->top--; in lua_replace()
237 setobj2s(L, L->top, index2addr(L, idx)); in lua_pushvalue()
301 setobjs2s(L, L->top, L->top - 1); in lua_arith()
302 L->top++; in lua_arith()
304 o1 = L->top - 2; in lua_arith()
305 o2 = L->top - 1; in lua_arith()
311 L->top--; in lua_arith()
467 setnilvalue(L->top); in lua_pushnil()
475 setnvalue(L->top, n); in lua_pushnumber()
476 luai_checknum(L, L->top, in lua_pushnumber()
485 setnvalue(L->top, cast_num(n)); in lua_pushinteger()
495 setnvalue(L->top, n); in lua_pushunsigned()
506 setsvalue2s(L, L->top, ts); in lua_pushlstring()
523 setsvalue2s(L, L->top, ts); in lua_pushstring()
558 setfvalue(L->top, fn); in lua_pushcclosure()
567 L->top -= n; in lua_pushcclosure()
569 setobj2n(L, &cl->c.upvalue[n], L->top + n); in lua_pushcclosure()
570 setclCvalue(L, L->top, cl); in lua_pushcclosure()
579 setbvalue(L->top, (b != 0)); /* ensure that true is 1 */ in lua_pushboolean()
587 setpvalue(L->top, p); in lua_pushlightuserdata()
595 setthvalue(L, L->top, L); in lua_pushthread()
613 setsvalue2s(L, L->top++, luaS_new(L, var)); in lua_getglobal()
614 luaV_gettable(L, gt, L->top - 1, L->top - 1); in lua_getglobal()
623 luaV_gettable(L, t, L->top - 1, L->top - 1); in lua_gettable()
632 setsvalue2s(L, L->top, luaS_new(L, k)); in lua_getfield()
634 luaV_gettable(L, t, L->top - 1, L->top - 1); in lua_getfield()
644 setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1)); in lua_rawget()
654 setobj2s(L, L->top, luaH_getint(hvalue(t), n)); in lua_rawgeti()
667 setobj2s(L, L->top, luaH_get(hvalue(t), &k)); in lua_rawgetp()
678 sethvalue(L, L->top, t); in lua_createtable()
706 sethvalue(L, L->top, mt); in lua_getmetatable()
721 sethvalue(L, L->top, uvalue(o)->env); in lua_getuservalue()
723 setnilvalue(L->top); in lua_getuservalue()
740 setsvalue2s(L, L->top++, luaS_new(L, var)); in lua_setglobal()
741 luaV_settable(L, gt, L->top - 1, L->top - 2); in lua_setglobal()
742 L->top -= 2; /* pop value and key */ in lua_setglobal()
752 luaV_settable(L, t, L->top - 2, L->top - 1); in lua_settable()
753 L->top -= 2; /* pop index and value */ in lua_settable()
763 setsvalue2s(L, L->top++, luaS_new(L, k)); in lua_setfield()
764 luaV_settable(L, t, L->top - 1, L->top - 2); in lua_setfield()
765 L->top -= 2; /* pop value and key */ in lua_setfield()
776 setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1); in lua_rawset()
778 luaC_barrierback(L, gcvalue(t), L->top-1); in lua_rawset()
779 L->top -= 2; in lua_rawset()
790 luaH_setint(L, hvalue(t), n, L->top - 1); in lua_rawseti()
791 luaC_barrierback(L, gcvalue(t), L->top-1); in lua_rawseti()
792 L->top--; in lua_rawseti()
805 setobj2t(L, luaH_set(L, hvalue(t), &k), L->top - 1); in lua_rawsetp()
806 luaC_barrierback(L, gcvalue(t), L->top - 1); in lua_rawsetp()
807 L->top--; in lua_rawsetp()
818 if (ttisnil(L->top - 1)) in lua_setmetatable()
821 api_check(L, ttistable(L->top - 1), "table expected"); in lua_setmetatable()
822 mt = hvalue(L->top - 1); in lua_setmetatable()
846 L->top--; in lua_setmetatable()
858 if (ttisnil(L->top - 1)) in lua_setuservalue()
861 api_check(L, ttistable(L->top - 1), "table expected"); in lua_setuservalue()
862 uvalue(o)->env = hvalue(L->top - 1); in lua_setuservalue()
863 luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1)); in lua_setuservalue()
865 L->top--; in lua_setuservalue()
876 api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)), \
898 func = L->top - (nargs+1); in lua_callk()
946 c.func = L->top - (nargs+1); /* function to be called */ in lua_pcallk()
982 LClosure *f = clLvalue(L->top - 1); /* get newly created function */ in lua_load()
1002 o = L->top - 1; in lua_dump()
1120 more = luaH_next(L, hvalue(t), L->top - 1); in lua_next()
1125 L->top -= 1; /* remove key */ in lua_next()
1139 setsvalue2s(L, L->top, luaS_newlstr(L, "", 0)); in lua_concat()
1151 luaV_objlen(L, L->top, t); in lua_len()
1180 setuvalue(L, L->top, u); in lua_newuserdata()
1219 setobj2s(L, L->top, val); in lua_getupvalue()
1237 L->top--; in lua_setupvalue()
1238 setobj(L, val, L->top); in lua_setupvalue()
1239 luaC_barrier(L, owner, L->top); in lua_setupvalue()