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'
Diffstat (limited to '')
| -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); |
