tag methods are always functions, so don't need to store a whole object

author: Roberto Ierusalimschy <roberto@inf.puc-rio.br> 2000-10-05 10:00:17 -0300
committer: Roberto Ierusalimschy <roberto@inf.puc-rio.br> 2000-10-05 10:00:17 -0300
commit: 046a3d6173792b7d4d4d26a4e063e2fe383c10a7 (patch)
tree: efe5a4544585084ab6e8d301847cc8568a1cc955 /lstate.c
parent: 001f2bdd0e2f8803889c1b5164b57a51e44aef5b (diff)
download: lua-046a3d6173792b7d4d4d26a4e063e2fe383c10a7.tar.gz
lua-046a3d6173792b7d4d4d26a4e063e2fe383c10a7.tar.bz2
lua-046a3d6173792b7d4d4d26a4e063e2fe383c10a7.zip
1 files changed, 4 insertions, 4 deletions
diff --git a/lstate.c b/lstate.c
index 874b35bd..e4e0bc33 100644
--- a/lstate.c
+++ b/lstate.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lstate.c,v 1.41 2000/09/25 16:22:42 roberto Exp roberto $
+** $Id: lstate.c,v 1.42 2000/09/29 12:42:13 roberto Exp roberto $
 ** Global State
 ** See Copyright Notice in lua.h
 */
@@ -73,7 +73,7 @@ lua_State *lua_open (int stacksize) {
  L->rootproto = NULL;
  L->rootcl = NULL;
  L->roottable = NULL;
-  L->IMtable = NULL;
+  L->TMtable = NULL;
  L->last_tag = -1;
  L->refArray = NULL;
  L->refSize = 0;
@@ -103,8 +103,8 @@ void lua_close (lua_State *L) {
  if (L->stack)
    L->nblocks -= (L->stack_last - L->stack + 1)*sizeof(TObject);
  luaM_free(L, L->stack);
-  L->nblocks -= (L->last_tag+1)*sizeof(struct IM);
+  L->nblocks -= (L->last_tag+1)*sizeof(struct TM);
-  luaM_free(L, L->IMtable);
+  luaM_free(L, L->TMtable);
  L->nblocks -= (L->refSize)*sizeof(struct Ref);
  luaM_free(L, L->refArray);
  L->nblocks -= (L->Mbuffsize)*sizeof(char);
author	Roberto Ierusalimschy <roberto@inf.puc-rio.br>	2000-10-05 10:00:17 -0300
committer	Roberto Ierusalimschy <roberto@inf.puc-rio.br>	2000-10-05 10:00:17 -0300
commit	046a3d6173792b7d4d4d26a4e063e2fe383c10a7 (patch)
tree	efe5a4544585084ab6e8d301847cc8568a1cc955 /lstate.c
parent	001f2bdd0e2f8803889c1b5164b57a51e44aef5b (diff)
download	lua-046a3d6173792b7d4d4d26a4e063e2fe383c10a7.tar.gz lua-046a3d6173792b7d4d4d26a4e063e2fe383c10a7.tar.bz2 lua-046a3d6173792b7d4d4d26a4e063e2fe383c10a7.zip

diff --git a/lstate.c b/lstate.c index 874b35bd..e4e0bc33 100644 --- a/lstate.c +++ b/lstate.c
@@ -1,5 +1,5 @@
1	/*	1	/*
2	** $Id: lstate.c,v 1.41 2000/09/25 16:22:42 roberto Exp roberto $	2	** $Id: lstate.c,v 1.42 2000/09/29 12:42:13 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	*/
@@ -73,7 +73,7 @@ lua_State *lua_open (int stacksize) {
73	L->rootproto = NULL;	73	L->rootproto = NULL;
74	L->rootcl = NULL;	74	L->rootcl = NULL;
75	L->roottable = NULL;	75	L->roottable = NULL;
76	L->IMtable = NULL;	76	L->TMtable = NULL;
77	L->last_tag = -1;	77	L->last_tag = -1;
78	L->refArray = NULL;	78	L->refArray = NULL;
79	L->refSize = 0;	79	L->refSize = 0;
@@ -103,8 +103,8 @@ void lua_close (lua_State *L) {
103	if (L->stack)	103	if (L->stack)
104	L->nblocks -= (L->stack_last - L->stack + 1)*sizeof(TObject);	104	L->nblocks -= (L->stack_last - L->stack + 1)*sizeof(TObject);
105	luaM_free(L, L->stack);	105	luaM_free(L, L->stack);
106	L->nblocks -= (L->last_tag+1)*sizeof(struct IM);	106	L->nblocks -= (L->last_tag+1)*sizeof(struct TM);
107	luaM_free(L, L->IMtable);	107	luaM_free(L, L->TMtable);
108	L->nblocks -= (L->refSize)*sizeof(struct Ref);	108	L->nblocks -= (L->refSize)*sizeof(struct Ref);
109	luaM_free(L, L->refArray);	109	luaM_free(L, L->refArray);
110	L->nblocks -= (L->Mbuffsize)*sizeof(char);	110	L->nblocks -= (L->Mbuffsize)*sizeof(char);