diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-11-27 13:59:25 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-11-27 13:59:25 -0200 |
commit | ef37c87e9333d825838d421e4652076b70c83a72 (patch) | |
tree | 2e42a23ae28870e731157feeee14d7808a8b34a6 | |
parent | 9e029f98b9b4859aa30305a0c36e560a085c02a9 (diff) | |
download | lua-ef37c87e9333d825838d421e4652076b70c83a72.tar.gz lua-ef37c87e9333d825838d421e4652076b70c83a72.tar.bz2 lua-ef37c87e9333d825838d421e4652076b70c83a72.zip |
no more 'globalbag'
-rw-r--r-- | lapi.c | 8 | ||||
-rw-r--r-- | lgc.c | 3 | ||||
-rw-r--r-- | lstate.c | 4 | ||||
-rw-r--r-- | lstate.h | 3 | ||||
-rw-r--r-- | lua.h | 4 |
5 files changed, 5 insertions, 17 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 1.7 1997/11/21 19:00:46 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 1.8 1997/11/26 18:53:45 roberto Exp roberto $ |
3 | ** Lua API | 3 | ** Lua API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -191,12 +191,6 @@ lua_Object lua_createtable (void) | |||
191 | } | 191 | } |
192 | 192 | ||
193 | 193 | ||
194 | lua_Object lua_globalbag (void) | ||
195 | { | ||
196 | return put_luaObject(&L->globalbag); | ||
197 | } | ||
198 | |||
199 | |||
200 | lua_Object lua_getglobal (char *name) | 194 | lua_Object lua_getglobal (char *name) |
201 | { | 195 | { |
202 | luaD_checkstack(2); /* may need that to call T.M. */ | 196 | luaD_checkstack(2); /* may need that to call T.M. */ |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.c,v 1.7 1997/11/03 20:45:23 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 1.8 1997/11/19 17:29:23 roberto Exp roberto $ |
3 | ** Garbage Collector | 3 | ** Garbage Collector |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -241,7 +241,6 @@ static void markall (void) | |||
241 | luaD_travstack(markobject); /* mark stack objects */ | 241 | luaD_travstack(markobject); /* mark stack objects */ |
242 | globalmark(); /* mark global variable values and names */ | 242 | globalmark(); /* mark global variable values and names */ |
243 | travlock(); /* mark locked objects */ | 243 | travlock(); /* mark locked objects */ |
244 | markobject(&L->globalbag); /* mark elements in global bag */ | ||
245 | luaT_travtagmethods(markobject); /* mark fallbacks */ | 244 | luaT_travtagmethods(markobject); /* mark fallbacks */ |
246 | } | 245 | } |
247 | 246 | ||
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: $ | 2 | ** $Id: lstate.c,v 1.1 1997/11/19 17:31:19 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 | */ |
@@ -45,8 +45,6 @@ void lua_open (void) | |||
45 | luaS_init(); | 45 | luaS_init(); |
46 | luaX_init(); | 46 | luaX_init(); |
47 | luaT_init(); | 47 | luaT_init(); |
48 | L->globalbag.ttype = LUA_T_ARRAY; | ||
49 | L->globalbag.value.a = luaH_new(0); | ||
50 | luaB_predefine(); | 48 | luaB_predefine(); |
51 | } | 49 | } |
52 | 50 | ||
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lstate.h,v 1.2 1997/11/21 19:00:46 roberto Exp roberto $ | 2 | ** $Id: lstate.h,v 1.3 1997/11/26 20:28:22 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 | */ |
@@ -66,7 +66,6 @@ typedef struct LState { | |||
66 | int refSize; /* size of refArray */ | 66 | int refSize; /* size of refArray */ |
67 | unsigned long GCthreshold; | 67 | unsigned long GCthreshold; |
68 | unsigned long nblocks; /* number of 'blocks' currently allocated */ | 68 | unsigned long nblocks; /* number of 'blocks' currently allocated */ |
69 | TObject globalbag; /* table for generic use by C */ | ||
70 | char *Mbuffer; /* global buffer, used by luaM_buffer */ | 69 | char *Mbuffer; /* global buffer, used by luaM_buffer */ |
71 | unsigned long Mbuffsize; /* size of Mbuffer */ | 70 | unsigned long Mbuffsize; /* size of Mbuffer */ |
72 | } LState; | 71 | } LState; |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lua.h,v 1.4 1997/11/19 17:29:23 roberto Exp roberto $ | 2 | ** $Id: lua.h,v 1.5 1997/11/26 18:53:45 roberto Exp roberto $ |
3 | ** LUA - An Extensible Extension Language | 3 | ** LUA - An Extensible Extension Language |
4 | ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil | 4 | ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil |
5 | ** e-mail: lua@tecgraf.puc-rio.br | 5 | ** e-mail: lua@tecgraf.puc-rio.br |
@@ -117,8 +117,6 @@ int lua_ref (int lock); /* In: value */ | |||
117 | lua_Object lua_getref (int ref); | 117 | lua_Object lua_getref (int ref); |
118 | void lua_unref (int ref); | 118 | void lua_unref (int ref); |
119 | 119 | ||
120 | lua_Object lua_globalbag (void); | ||
121 | |||
122 | lua_Object lua_createtable (void); | 120 | lua_Object lua_createtable (void); |
123 | 121 | ||
124 | long lua_collectgarbage (long limit); | 122 | long lua_collectgarbage (long limit); |