lua

A copy of the Lua development repository
Log | Files | Refs | README

commit eab1965c05f2ef71f715347e280733e7657993e4
parent 3d5187f6e554d05883dbc0d7af8d9697d9f160b7
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri,  9 Jul 2004 11:20:00 -0300

bug: `lua_setfenv' needs a write barrier

Diffstat:
Mlapi.c | 9+++++----
1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lapi.c b/lapi.c @@ -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; }