History

Lua 5.1.3-rc1

Lua Team committed 18 years ago

Commit ea97e791 parent 4d388a360 files · +732 −439Browse files

Showing the changes to src/lapi.c (1 of 60 files). Show all

Unified · Split

src/lapi.c+7−2
@@ -1,5 +1,5 @@
1/*1/*
2** $Id: lapi.c,v 2.55 2006/06/07 12:37:17 roberto Exp $2** $Id: lapi.c,v 2.55.1.3 2008/01/03 15:20:39 roberto Exp $
3** Lua API3** Lua API
4** See Copyright Notice in lua.h4** See Copyright Notice in lua.h
5*/5*/
@@ -123,6 +123,11 @@ LUA_API void lua_xmove (lua_State *from, lua_State *to, int n) { · 117 unmodified lines
123}123}
124 124
125 125
126LUA_API void lua_setlevel (lua_State *from, lua_State *to) {
127 to->nCcalls = from->nCcalls;
128}
129
130
126LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) {131LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) {
127 lua_CFunction old;132 lua_CFunction old;
128 lua_lock(L);133 lua_lock(L);
@@ -749,7 +754,7 @@ LUA_API int lua_setfenv (lua_State *L, int idx) { · 620 unmodified lines
749 res = 0;754 res = 0;
750 break;755 break;
751 }756 }
752 luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1));757 if (res) luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1));
753 L->top--;758 L->top--;
754 lua_unlock(L);759 lua_unlock(L);
755 return res;760 return res;