weakregistry has its keys weak, too

This commit is contained in:
Roberto Ierusalimschy
2001-07-17 14:54:46 -03:00
parent a598804a04
commit d8f37bf42a

View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lstate.c,v 1.64 2001/06/12 18:43:13 roberto Exp roberto $ ** $Id: lstate.c,v 1.65 2001/06/21 16:41:34 roberto Exp roberto $
** Global State ** Global State
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -67,7 +67,8 @@ static void f_luaopen (lua_State *L, void *ud) {
G(L)->type2tag = luaH_new(L, 10); G(L)->type2tag = luaH_new(L, 10);
G(L)->registry = luaH_new(L, 0); G(L)->registry = luaH_new(L, 0);
G(L)->weakregistry = luaH_new(L, 0); G(L)->weakregistry = luaH_new(L, 0);
G(L)->weakregistry->weakmode = LUA_WEAK_VALUE; /* make weakregistry weak */ /* make weakregistry weak */
G(L)->weakregistry->weakmode = LUA_WEAK_KEY | LUA_WEAK_VALUE;
luaS_resize(L, MINPOWER2); luaS_resize(L, MINPOWER2);
luaX_init(L); luaX_init(L);
luaT_init(L); luaT_init(L);