Browse Source

no more 'globalbag'

Roberto Ierusalimschy 28 years ago
parent
commit
ef37c87e93
5 changed files with 5 additions and 17 deletions
  1. 1 7
      lapi.c
  2. 1 2
      lgc.c
  3. 1 3
      lstate.c
  4. 1 2
      lstate.h
  5. 1 3
      lua.h

+ 1 - 7
lapi.c

@@ -1,5 +1,5 @@
 /*
 /*
-** $Id: lapi.c,v 1.7 1997/11/21 19:00:46 roberto Exp roberto $
+** $Id: lapi.c,v 1.8 1997/11/26 18:53:45 roberto Exp roberto $
 ** Lua API
 ** Lua API
 ** See Copyright Notice in lua.h
 ** See Copyright Notice in lua.h
 */
 */
@@ -191,12 +191,6 @@ lua_Object lua_createtable (void)
 }
 }
 
 
 
 
-lua_Object lua_globalbag (void)
-{
-  return put_luaObject(&L->globalbag);
-}
-
-
 lua_Object lua_getglobal (char *name)
 lua_Object lua_getglobal (char *name)
 {
 {
   luaD_checkstack(2);  /* may need that to call T.M. */
   luaD_checkstack(2);  /* may need that to call T.M. */

+ 1 - 2
lgc.c

@@ -1,5 +1,5 @@
 /*
 /*
-** $Id: lgc.c,v 1.7 1997/11/03 20:45:23 roberto Exp roberto $
+** $Id: lgc.c,v 1.8 1997/11/19 17:29:23 roberto Exp roberto $
 ** Garbage Collector
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 ** See Copyright Notice in lua.h
 */
 */
@@ -241,7 +241,6 @@ static void markall (void)
   luaD_travstack(markobject); /* mark stack objects */
   luaD_travstack(markobject); /* mark stack objects */
   globalmark();  /* mark global variable values and names */
   globalmark();  /* mark global variable values and names */
   travlock(); /* mark locked objects */
   travlock(); /* mark locked objects */
-  markobject(&L->globalbag);  /* mark elements in global bag */
   luaT_travtagmethods(markobject);  /* mark fallbacks */
   luaT_travtagmethods(markobject);  /* mark fallbacks */
 }
 }
 
 

+ 1 - 3
lstate.c

@@ -1,5 +1,5 @@
 /*
 /*
-** $Id: $
+** $Id: lstate.c,v 1.1 1997/11/19 17:31:19 roberto Exp roberto $
 ** Global State
 ** Global State
 ** See Copyright Notice in lua.h
 ** See Copyright Notice in lua.h
 */
 */
@@ -45,8 +45,6 @@ void lua_open (void)
   luaS_init();
   luaS_init();
   luaX_init();
   luaX_init();
   luaT_init();
   luaT_init();
-  L->globalbag.ttype = LUA_T_ARRAY;
-  L->globalbag.value.a = luaH_new(0);
   luaB_predefine();
   luaB_predefine();
 }
 }
 
 

+ 1 - 2
lstate.h

@@ -1,5 +1,5 @@
 /*
 /*
-** $Id: lstate.h,v 1.2 1997/11/21 19:00:46 roberto Exp roberto $
+** $Id: lstate.h,v 1.3 1997/11/26 20:28:22 roberto Exp roberto $
 ** Global State
 ** Global State
 ** See Copyright Notice in lua.h
 ** See Copyright Notice in lua.h
 */
 */
@@ -66,7 +66,6 @@ typedef struct LState {
   int refSize;  /* size of refArray */
   int refSize;  /* size of refArray */
   unsigned long GCthreshold;
   unsigned long GCthreshold;
   unsigned long nblocks;  /* number of 'blocks' currently allocated */
   unsigned long nblocks;  /* number of 'blocks' currently allocated */
-  TObject globalbag;  /* table for generic use by C */
   char *Mbuffer;  /* global buffer, used by luaM_buffer */
   char *Mbuffer;  /* global buffer, used by luaM_buffer */
   unsigned long Mbuffsize;  /* size of Mbuffer */
   unsigned long Mbuffsize;  /* size of Mbuffer */
 } LState;
 } LState;

+ 1 - 3
lua.h

@@ -1,5 +1,5 @@
 /*
 /*
-** $Id: lua.h,v 1.4 1997/11/19 17:29:23 roberto Exp roberto $
+** $Id: lua.h,v 1.5 1997/11/26 18:53:45 roberto Exp roberto $
 ** LUA - An Extensible Extension Language
 ** LUA - An Extensible Extension Language
 ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil
 ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil
 ** e-mail: [email protected]
 ** e-mail: [email protected]
@@ -117,8 +117,6 @@ int            lua_ref			(int lock); /* In: value */
 lua_Object     lua_getref		(int ref);
 lua_Object     lua_getref		(int ref);
 void	       lua_unref		(int ref);
 void	       lua_unref		(int ref);
 
 
-lua_Object     lua_globalbag		(void);
-
 lua_Object     lua_createtable		(void);
 lua_Object     lua_createtable		(void);
 
 
 long	       lua_collectgarbage	(long limit);
 long	       lua_collectgarbage	(long limit);