better code to signal write barriers

lobject.h

@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.h,v 1.153 2002/11/13 11:49:19 roberto Exp roberto $
+** $Id: lobject.h,v 1.154 2002/11/14 11:51:50 roberto Exp roberto $
 ** Type definitions for Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -154,12 +154,14 @@ typedef struct lua_TObject {
 #define setobjs2s	setobj
 /* to stack (not from same stack) */
 #define setobj2s	setobj
+#define setsvalue2s	setsvalue
 /* from table to same table */
 #define setobjt2t	setobj
 /* to table */
 #define setobj2t	setobj
-/* string to stack */
-#define setsvalue2s	setsvalue
+/* to new object */
+#define setobj2n	setobj
+#define setsvalue2n	setsvalue
 
 #define setttype(obj, tt) (ttype(obj) = (tt))
 

lvm.h

@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.h,v 1.45 2002/08/05 17:36:24 roberto Exp roberto $
+** $Id: lvm.h,v 1.46 2002/08/07 19:22:39 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -25,7 +25,7 @@
 int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r);
 int luaV_equalval (lua_State *L, const TObject *t1, const TObject *t2);
 const TObject *luaV_tonumber (const TObject *obj, TObject *n);
-int luaV_tostring (lua_State *L, TObject *obj);
+int luaV_tostring (lua_State *L, StkId obj);
 const TObject *luaV_gettable (lua_State *L, const TObject *t, TObject *key,
                               int loop);
 void luaV_settable (lua_State *L, const TObject *t, TObject *key, StkId val);