Function f_luaopen

Source/Misc/lua/src/lua.c:8985–8996

** open parts that may cause memory-allocation errors */

** open parts that may cause memory-allocation errors
*/
static void f_luaopen (lua_State *L, void *ud) {
global_State *g = G(L);
UNUSED(ud);
stack_init(L, L);  /* init stack */
sethvalue(L, gt(L), luaH_new(L, 0, 2));  /* table of globals */
sethvalue(L, registry(L), luaH_new(L, 0, 2));  /* registry */
luaS_resize(L, MINSTRTABSIZE);  /* initial size of string table */
luaT_init(L);
luaX_init(L);
luaS_fix(luaS_newliteral(L, MEMERRMSG));
g->GCthreshold = 4*g->totalbytes;
}


static void preinit_state (lua_State *L, global_State *g) {