mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bug: `lua_setfenv' needs a write barrier

This commit is contained in:
Roberto Ierusalimschy 2004-07-09 11:20:22 -03:00
parent 3d5187f6e5
commit eab1965c05
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lapi.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lapi.c,v 2.12 2004/06/08 14:31:00 roberto Exp roberto $
** $Id: lapi.c,v 2.13 2004/06/30 14:15:23 roberto Exp roberto $
** Lua API
** See Copyright Notice in lua.h
*/
@ -677,12 +677,13 @@ LUA_API int lua_setfenv (lua_State *L, int idx) {
api_checknelems(L, 1);
o = luaA_index(L, idx);
api_checkvalidindex(L, o);
L->top--;
api_check(L, ttistable(L->top));
api_check(L, ttistable(L->top - 1));
if (isLfunction(o)) {
res = 1;
clvalue(o)->l.g = *(L->top);
clvalue(o)->l.g = *(L->top - 1);
luaC_objbarrier(L, clvalue(o), hvalue(L->top - 1));
}
L->top--;
lua_unlock(L);
return res;
}