nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

write barrier for C upvalues

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2004-03-23 14:07:34 -03:00
parent 29a13b4128
commit 21bc05c920
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lapi.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 2.3 2004/02/20 16:01:05 roberto Exp roberto $ ** $Id: lapi.c,v 2.4 2004/03/09 17:34:35 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -68,11 +68,10 @@ static TValue *luaA_index (lua_State *L, int idx) {
case LUA_REGISTRYINDEX: return registry(L); case LUA_REGISTRYINDEX: return registry(L);
case LUA_GLOBALSINDEX: return gt(L); case LUA_GLOBALSINDEX: return gt(L);
default: { default: {
TValue *func = (L->base - 1); Closure *func = curr_func(L);
idx = LUA_GLOBALSINDEX - idx; idx = LUA_GLOBALSINDEX - idx;
lua_assert(iscfunction(func)); return (idx <= func->c.nupvalues)
return (idx <= clvalue(func)->c.nupvalues) ? &func->c.upvalue[idx-1]
? &clvalue(func)->c.upvalue[idx-1]
: cast(TValue *, &luaO_nilobject); : cast(TValue *, &luaO_nilobject);
} }
} }
@@ -194,7 +193,9 @@ LUA_API void lua_replace (lua_State *L, int idx) {
api_checknelems(L, 1); api_checknelems(L, 1);
o = luaA_index(L, idx); o = luaA_index(L, idx);
api_checkvalidindex(L, o); api_checkvalidindex(L, o);
setobj(L, o, L->top - 1); /* write barrier???? */ setobj(L, o, L->top - 1);
if (idx < LUA_GLOBALSINDEX) /* function upvalue? */
luaC_barrier(L, curr_func(L), L->top - 1);
L->top--; L->top--;
lua_unlock(L); lua_unlock(L);
} }