new functions "tinsert" and "tremove"

1 files changed, 13 insertions, 11 deletions

diff --git a/lvm.c b/lvm.c
index d84752a3..85e570b4 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 1.33 1998/12/24 14:57:23 roberto Exp $
+** $Id: lvm.c,v 1.34 1998/12/27 20:25:20 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -93,6 +93,16 @@ int luaV_tostring (TObject *obj) {
 }
 
 
+void luaV_setn (Hash *t, int val) {
+  TObject index, value;
+  ttype(&index) = LUA_T_STRING;
+  tsvalue(&index) = luaS_new("n");
+  ttype(&value) = LUA_T_NUMBER;
+  nvalue(&value) = val;
+  *(luaH_set(t, &index)) = value;
+}
+
+
 void luaV_closure (int nelems)
 {
   if (nelems > 0) {
@@ -275,8 +285,7 @@ void luaV_comparison (lua_Type ttype_less, lua_Type ttype_equal,
 }
 
 
-void luaV_pack (StkId firstel, int nvararg, TObject *tab)
-{
+void luaV_pack (StkId firstel, int nvararg, TObject *tab) {
   TObject *firstelem = L->stack.stack+firstel;
   int i;
   Hash *htab;
@@ -285,14 +294,7 @@ void luaV_pack (StkId firstel, int nvararg, TObject *tab)
   ttype(tab) = LUA_T_ARRAY;
   for (i=0; i<nvararg; i++)
     luaH_setint(htab, i+1, firstelem+i);
-  /* store counter in field "n" */ {
-    TObject index, extra;
-    ttype(&index) = LUA_T_STRING;
-    tsvalue(&index) = luaS_new("n");
-    ttype(&extra) = LUA_T_NUMBER;
-    nvalue(&extra) = nvararg;
-    *(luaH_set(htab, &index)) = extra;
-  }
+  luaV_setn(htab, nvararg);  /* store counter in field "n" */
 }