diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-11-14 14:16:21 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-11-14 14:16:21 -0200 |
commit | b40c9f7a3ce181134e12d13c0d2284c8fd093735 (patch) | |
tree | b07ee6fb441e8dc93a508c067a4021da14fed6cb | |
parent | 41fd639cab8e2835ad2860442c19eb78fbc777be (diff) | |
download | lua-b40c9f7a3ce181134e12d13c0d2284c8fd093735.tar.gz lua-b40c9f7a3ce181134e12d13c0d2284c8fd093735.tar.bz2 lua-b40c9f7a3ce181134e12d13c0d2284c8fd093735.zip |
better code to signal write barriers
-rw-r--r-- | lobject.h | 8 | ||||
-rw-r--r-- | lvm.h | 4 |
2 files changed, 7 insertions, 5 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lobject.h,v 1.153 2002/11/13 11:49:19 roberto Exp roberto $ | 2 | ** $Id: lobject.h,v 1.154 2002/11/14 11:51:50 roberto Exp roberto $ |
3 | ** Type definitions for Lua objects | 3 | ** Type definitions for Lua objects |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -154,12 +154,14 @@ typedef struct lua_TObject { | |||
154 | #define setobjs2s setobj | 154 | #define setobjs2s setobj |
155 | /* to stack (not from same stack) */ | 155 | /* to stack (not from same stack) */ |
156 | #define setobj2s setobj | 156 | #define setobj2s setobj |
157 | #define setsvalue2s setsvalue | ||
157 | /* from table to same table */ | 158 | /* from table to same table */ |
158 | #define setobjt2t setobj | 159 | #define setobjt2t setobj |
159 | /* to table */ | 160 | /* to table */ |
160 | #define setobj2t setobj | 161 | #define setobj2t setobj |
161 | /* string to stack */ | 162 | /* to new object */ |
162 | #define setsvalue2s setsvalue | 163 | #define setobj2n setobj |
164 | #define setsvalue2n setsvalue | ||
163 | 165 | ||
164 | #define setttype(obj, tt) (ttype(obj) = (tt)) | 166 | #define setttype(obj, tt) (ttype(obj) = (tt)) |
165 | 167 | ||
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.h,v 1.45 2002/08/05 17:36:24 roberto Exp roberto $ | 2 | ** $Id: lvm.h,v 1.46 2002/08/07 19:22:39 roberto Exp roberto $ |
3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -25,7 +25,7 @@ | |||
25 | int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r); | 25 | int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r); |
26 | int luaV_equalval (lua_State *L, const TObject *t1, const TObject *t2); | 26 | int luaV_equalval (lua_State *L, const TObject *t1, const TObject *t2); |
27 | const TObject *luaV_tonumber (const TObject *obj, TObject *n); | 27 | const TObject *luaV_tonumber (const TObject *obj, TObject *n); |
28 | int luaV_tostring (lua_State *L, TObject *obj); | 28 | int luaV_tostring (lua_State *L, StkId obj); |
29 | const TObject *luaV_gettable (lua_State *L, const TObject *t, TObject *key, | 29 | const TObject *luaV_gettable (lua_State *L, const TObject *t, TObject *key, |
30 | int loop); | 30 | int loop); |
31 | void luaV_settable (lua_State *L, const TObject *t, TObject *key, StkId val); | 31 | void luaV_settable (lua_State *L, const TObject *t, TObject *key, StkId val); |