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