diff options
Diffstat (limited to 'lstate.c')
-rw-r--r-- | lstate.c | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lstate.c,v 1.47 2000/10/26 12:47:05 roberto Exp roberto $ | 2 | ** $Id: lstate.c,v 1.48 2000/10/30 16:29:59 roberto Exp roberto $ |
3 | ** Global State | 3 | ** Global State |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -77,9 +77,11 @@ LUA_API lua_State *lua_open (int stacksize) { | |||
77 | L->rootcl = NULL; | 77 | L->rootcl = NULL; |
78 | L->roottable = NULL; | 78 | L->roottable = NULL; |
79 | L->TMtable = NULL; | 79 | L->TMtable = NULL; |
80 | L->last_tag = -1; | 80 | L->sizeTM = 0; |
81 | L->ntag = 0; | ||
81 | L->refArray = NULL; | 82 | L->refArray = NULL; |
82 | L->refSize = 0; | 83 | L->nref = 0; |
84 | L->sizeref = 0; | ||
83 | L->refFree = NONEXT; | 85 | L->refFree = NONEXT; |
84 | L->nblocks = sizeof(lua_State); | 86 | L->nblocks = sizeof(lua_State); |
85 | L->GCthreshold = MAX_INT; /* to avoid GC during pre-definitions */ | 87 | L->GCthreshold = MAX_INT; /* to avoid GC during pre-definitions */ |
@@ -107,9 +109,9 @@ LUA_API void lua_close (lua_State *L) { | |||
107 | if (L->stack) | 109 | if (L->stack) |
108 | L->nblocks -= (L->stack_last - L->stack + 1)*sizeof(TObject); | 110 | L->nblocks -= (L->stack_last - L->stack + 1)*sizeof(TObject); |
109 | luaM_free(L, L->stack); | 111 | luaM_free(L, L->stack); |
110 | L->nblocks -= (L->last_tag+1)*sizeof(struct TM); | 112 | L->nblocks -= L->ntag*sizeof(struct TM); |
111 | luaM_free(L, L->TMtable); | 113 | luaM_free(L, L->TMtable); |
112 | L->nblocks -= (L->refSize)*sizeof(struct Ref); | 114 | L->nblocks -= (L->nref)*sizeof(struct Ref); |
113 | luaM_free(L, L->refArray); | 115 | luaM_free(L, L->refArray); |
114 | L->nblocks -= (L->Mbuffsize)*sizeof(char); | 116 | L->nblocks -= (L->Mbuffsize)*sizeof(char); |
115 | luaM_free(L, L->Mbuffer); | 117 | luaM_free(L, L->Mbuffer); |