56     api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index");  in index2addr()
57     if (o >= L->top) return NONVALIDVALUE;  in index2addr()
61     api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index");  in index2addr()
62     return L->top + idx;  in index2addr()
93   if (L->stack_last - L->top > size)  /* stack large enough? */  in lua_checkstack()
96     int inuse = cast_int(L->top - L->stack) + EXTRA_STACK;  in lua_checkstack()
102   if (res && ci->top < L->top + size)  in lua_checkstack()
103     ci->top = L->top + size;  /* adjust frame top */  in lua_checkstack()
115   api_check(from, to->ci->top - to->top >= n, "not enough elements to move");  in lua_xmove()
116   from->top -= n;  in lua_xmove()
118     setobj2s(to, to->top++, from->top + i);  in lua_xmove()
153          : cast_int(L->top - L->ci->func + idx);  in lua_absindex()
158   return cast_int(L->top - (L->ci->func + 1));  in lua_gettop()
167     while (L->top < (func + 1) + idx)  in lua_settop()
168       setnilvalue(L->top++);  in lua_settop()
169     L->top = (func + 1) + idx;  in lua_settop()
172     api_check(L, -(idx+1) <= (L->top - (func + 1)), "invalid new top");  in lua_settop()
173     L->top += idx+1;  /* `subtract' index (index is negative) */  in lua_settop()
184   while (++p < L->top) setobjs2s(L, p-1, p);  in lua_remove()
185   L->top--;  in lua_remove()
196   for (q = L->top; q > p; q--)  /* use L->top as a temporary */  in lua_insert()
198   setobjs2s(L, p, L->top);  in lua_insert()
217   moveto(L, L->top - 1, idx);  in lua_replace()
218   L->top--;  in lua_replace()
234   setobj2s(L, L->top, index2addr(L, idx));  in lua_pushvalue()
298     setobjs2s(L, L->top, L->top - 1);  in lua_arith()
299     L->top++;  in lua_arith()
301   o1 = L->top - 2;  in lua_arith()
302   o2 = L->top - 1;  in lua_arith()
308   L->top--;  in lua_arith()
464   setnilvalue(L->top);  in lua_pushnil()
472   setnvalue(L->top, n);  in lua_pushnumber()
473   luai_checknum(L, L->top,  in lua_pushnumber()
482   setnvalue(L->top, cast_num(n));  in lua_pushinteger()
492   setnvalue(L->top, n);  in lua_pushunsigned()
503   setsvalue2s(L, L->top, ts);  in lua_pushlstring()
520     setsvalue2s(L, L->top, ts);  in lua_pushstring()
555     setfvalue(L->top, fn);  in lua_pushcclosure()
564     L->top -= n;  in lua_pushcclosure()
566       setobj2n(L, &cl->c.upvalue[n], L->top + n);  in lua_pushcclosure()
567     setclCvalue(L, L->top, cl);  in lua_pushcclosure()
576   setbvalue(L->top, (b != 0));  /* ensure that true is 1 */  in lua_pushboolean()
584   setpvalue(L->top, p);  in lua_pushlightuserdata()
592   setthvalue(L, L->top, L);  in lua_pushthread()
610   setsvalue2s(L, L->top++, luaS_new(L, var));  in lua_getglobal()
611   luaV_gettable(L, gt, L->top - 1, L->top - 1);  in lua_getglobal()
620   luaV_gettable(L, t, L->top - 1, L->top - 1);  in lua_gettable()
629   setsvalue2s(L, L->top, luaS_new(L, k));  in lua_getfield()
631   luaV_gettable(L, t, L->top - 1, L->top - 1);  in lua_getfield()
641   setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1));  in lua_rawget()
651   setobj2s(L, L->top, luaH_getint(hvalue(t), n));  in lua_rawgeti()
664   setobj2s(L, L->top, luaH_get(hvalue(t), &k));  in lua_rawgetp()
675   sethvalue(L, L->top, t);  in lua_createtable()
703     sethvalue(L, L->top, mt);  in lua_getmetatable()
718     sethvalue(L, L->top, uvalue(o)->env);  in lua_getuservalue()
720     setnilvalue(L->top);  in lua_getuservalue()
737   setsvalue2s(L, L->top++, luaS_new(L, var));  in lua_setglobal()
738   luaV_settable(L, gt, L->top - 1, L->top - 2);  in lua_setglobal()
739   L->top -= 2;  /* pop value and key */  in lua_setglobal()
749   luaV_settable(L, t, L->top - 2, L->top - 1);  in lua_settable()
750   L->top -= 2;  /* pop index and value */  in lua_settable()
760   setsvalue2s(L, L->top++, luaS_new(L, k));  in lua_setfield()
761   luaV_settable(L, t, L->top - 1, L->top - 2);  in lua_setfield()
762   L->top -= 2;  /* pop value and key */  in lua_setfield()
773   setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1);  in lua_rawset()
775   luaC_barrierback(L, gcvalue(t), L->top-1);  in lua_rawset()
776   L->top -= 2;  in lua_rawset()
787   luaH_setint(L, hvalue(t), n, L->top - 1);  in lua_rawseti()
788   luaC_barrierback(L, gcvalue(t), L->top-1);  in lua_rawseti()
789   L->top--;  in lua_rawseti()
802   setobj2t(L, luaH_set(L, hvalue(t), &k), L->top - 1);  in lua_rawsetp()
803   luaC_barrierback(L, gcvalue(t), L->top - 1);  in lua_rawsetp()
804   L->top--;  in lua_rawsetp()
815   if (ttisnil(L->top - 1))  in lua_setmetatable()
818     api_check(L, ttistable(L->top - 1), "table expected");  in lua_setmetatable()
819     mt = hvalue(L->top - 1);  in lua_setmetatable()
843   L->top--;  in lua_setmetatable()
855   if (ttisnil(L->top - 1))  in lua_setuservalue()
858     api_check(L, ttistable(L->top - 1), "table expected");  in lua_setuservalue()
859     uvalue(o)->env = hvalue(L->top - 1);  in lua_setuservalue()
860     luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1));  in lua_setuservalue()
862   L->top--;  in lua_setuservalue()
873      api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)), \
895   func = L->top - (nargs+1);  in lua_callk()
943   c.func = L->top - (nargs+1);  /* function to be called */  in lua_pcallk()
979     LClosure *f = clLvalue(L->top - 1);  /* get newly created function */  in lua_load()
999   o = L->top - 1;  in lua_dump()
1117   more = luaH_next(L, hvalue(t), L->top - 1);  in lua_next()
1122     L->top -= 1;  /* remove key */  in lua_next()
1136     setsvalue2s(L, L->top, luaS_newlstr(L, "", 0));  in lua_concat()
1148   luaV_objlen(L, L->top, t);  in lua_len()
1177   setuvalue(L, L->top, u);  in lua_newuserdata()
1216     setobj2s(L, L->top, val);  in lua_getupvalue()
1234     L->top--;  in lua_setupvalue()
1235     setobj(L, val, L->top);  in lua_setupvalue()
1236     luaC_barrier(L, owner, L->top);  in lua_setupvalue()