Function lua_newstate

src/Chain/libraries/glua/lstate.cpp:299–355

LUA_API lua_State *lua_newstate(lua_Alloc f, void *ud) {
    int i;
    lua_State *L;
    global_State *g;
    LG *l = lua_cast(LG *, (*f)(ud, nullptr, LUA_TTHREAD, sizeof(LG)));
    if (l == nullptr) return nullptr;
    L = &l->l.l;
    g = &l->g;
    L->next = nullptr;
    L->tt = LUA_TTHREAD;
    g->currentwhite = bitmask(WHITE0BIT);
    L->marked = luaC_white(g);
    L->malloc_buffer = malloc(LUA_MALLOC_TOTAL_SIZE);
    L->malloc_pos = 0;
    L->malloced_buffers = new std::list<std::pair<ptrdiff_t, ptrdiff_t>>();
    memset(L->compile_error, 0x0, LUA_COMPILE_ERROR_MAX_LENGTH);
	memset(L->runerror, 0x0, LUA_VM_EXCEPTION_STRNG_MAX_LENGTH);
	L->bytecode_debugger_opened = false;
    L->in = stdin;
    L->out = stdout;
    L->err = stderr;
    L->force_stopping = false;
	L->exit_code = 0;
    L->debugger_pausing = false;
    L->preprocessor = nullptr;
    preinit_thread(L, g);
    g->frealloc = f;
    g->ud = ud;
    g->mainthread = L;
    g->seed = makeseed(L);
    g->gcrunning = 0;  /* no GC while building state */
    g->GCestimate = 0;
    g->strt.size = g->strt.nuse = 0;
    g->strt.hash = nullptr;
    setnilvalue(&g->l_registry);
    g->panic = nullptr;
    g->version = nullptr;
    g->gcstate = GCSpause;
    g->gckind = KGC_NORMAL;
    g->allgc = g->finobj = g->tobefnz = g->fixedgc = nullptr;
    g->sweepgc = nullptr;
    g->gray = g->grayagain = nullptr;
    g->weak = g->ephemeron = g->allweak = nullptr;
    g->twups = nullptr;
    g->totalbytes = sizeof(LG);
    g->GCdebt = 0;
    g->gcfinnum = 0;
    g->gcpause = LUAI_GCPAUSE;
    g->gcstepmul = LUAI_GCMUL;
    for (i = 0; i < LUA_NUMTAGS; i++) g->mt[i] = nullptr;
    if (luaD_rawrunprotected(L, f_luaopen, nullptr) != LUA_OK) {
        /* memory allocation error: free partial state */
        close_state(L);
        L = nullptr;
    }
    return L;
}