ljx

FORK: LuaJIT with native 5.2 and 5.3 support
git clone https://git.neptards.moe/neptards/ljx.git
Log | Files | Refs | README

lj_state.h (1045B)

      1 /*
      2 ** State and stack handling.
      3 ** Copyright (C) 2005-2016 Mike Pall. See Copyright Notice in luajit.h
      4 */
      5 
      6 #ifndef _LJ_STATE_H
      7 #define _LJ_STATE_H
      8 
      9 #include "lj_obj.h"
     10 
     11 #define incr_top(L) \
     12   (++L->top >= tvref(L->maxstack) && (lj_state_growstack1(L), 0))
     13 
     14 #define savestack(L, p)		((char *)(p) - mref(L->stack, char))
     15 #define restorestack(L, n)	((TValue *)(mref(L->stack, char) + (n)))
     16 
     17 LJ_FUNC void lj_state_relimitstack(lua_State *L);
     18 LJ_FUNC void lj_state_shrinkstack(lua_State *L, MSize used);
     19 LJ_FUNCA void LJ_FASTCALL lj_state_growstack(lua_State *L, MSize need);
     20 LJ_FUNC void LJ_FASTCALL lj_state_growstack1(lua_State *L);
     21 
     22 static LJ_AINLINE void lj_state_checkstack(lua_State *L, MSize need)
     23 {
     24   if ((mref(L->maxstack, char) - (char *)L->top) <=
     25       (ptrdiff_t)need*(ptrdiff_t)sizeof(TValue))
     26     lj_state_growstack(L, need);
     27 }
     28 
     29 LJ_FUNC lua_State *lj_state_new(lua_State *L);
     30 LJ_FUNC void LJ_FASTCALL lj_state_free(global_State *g, lua_State *L);
     31 #if LJ_64
     32 LJ_FUNC lua_State *lj_state_newstate(lua_Alloc f, void *ud);
     33 #endif
     34 
     35 #endif