1 files changed, 11 insertions, 1 deletions
diff --git a/ltable.c b/ltable.c
index 35a7eec8..c875d189 100644
--- a/ltable.c
+++ b/ltable.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltable.c,v 1.15 1998/08/11 16:38:34 roberto Exp roberto $
+** $Id: ltable.c,v 1.16 1998/12/30 13:14:46 roberto Exp $
 ** Lua tables (hash)
 ** See Copyright Notice in lua.h
 */
@@ -223,3 +223,13 @@ TObject *luaH_getint (Hash *t, int ref) {
  return luaH_get(t, &index);
 }
+void luaH_move (Hash *t, int from, int to) {
+  TObject index;
+  TObject *toadd;
+  ttype(&index) = LUA_T_NUMBER;
+  nvalue(&index) = to;
+  toadd = luaH_set(t, &index);
+  nvalue(&index) = from;
+  *toadd = *luaH_get(t, &index);
+}

diff --git a/ltable.c b/ltable.c index 35a7eec8..c875d189 100644 --- a/ltable.c +++ b/ltable.c
@@ -1,5 +1,5 @@
1	/*	1	/*
2	** $Id: ltable.c,v 1.15 1998/08/11 16:38:34 roberto Exp roberto $	2	** $Id: ltable.c,v 1.16 1998/12/30 13:14:46 roberto Exp $
3	** Lua tables (hash)	3	** Lua tables (hash)
4	** See Copyright Notice in lua.h	4	** See Copyright Notice in lua.h
5	*/	5	*/
@@ -223,3 +223,13 @@ TObject luaH_getint (Hash t, int ref) {
223	return luaH_get(t, &index);	223	return luaH_get(t, &index);
224	}	224	}
225		225
		226
		227	void luaH_move (Hash *t, int from, int to) {
		228	TObject index;
		229	TObject *toadd;
		230	ttype(&index) = LUA_T_NUMBER;
		231	nvalue(&index) = to;
		232	toadd = luaH_set(t, &index);
		233	nvalue(&index) = from;
		234	toadd = luaH_get(t, &index);
		235	}