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

lua_checkstack does not raise memory errors (instead it signals them)

This commit is contained in:
Roberto Ierusalimschy 2009-12-08 14:15:43 -02:00
parent a4472490bc
commit ed117bb42a
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lapi.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 2.101 2009/11/27 15:37:59 roberto Exp roberto $ ** $Id: lapi.c,v 2.102 2009/12/07 15:49:47 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -81,16 +81,28 @@ static Table *getcurrenv (lua_State *L) {
} }
/*
** to be caled by 'lua_checkstack' in protected mode, to grow stack
** capturing memory errors
*/
static void growstack (lua_State *L, void *ud) {
int size = *(int *)ud;
luaD_growstack(L, size);
}
LUA_API int lua_checkstack (lua_State *L, int size) { LUA_API int lua_checkstack (lua_State *L, int size) {
int res = 1; int res;
CallInfo *ci = L->ci; CallInfo *ci = L->ci;
lua_lock(L); lua_lock(L);
if (L->stack_last - L->top <= size) { /* need to grow stack? */ if (L->stack_last - L->top > size) /* stack large enough? */
res = 1; /* yes; check is OK */
else { /* no; need to grow stack */
int inuse = L->top - L->stack + EXTRA_STACK; int inuse = L->top - L->stack + EXTRA_STACK;
if (inuse > LUAI_MAXSTACK - size) /* can grow without overflow? */ if (inuse > LUAI_MAXSTACK - size) /* can grow without overflow? */
res = 0; /* no */ res = 0; /* no */
else else /* try to grow stack */
luaD_growstack(L, size); res = (luaD_rawrunprotected(L, &growstack, &size) == LUA_OK);
} }
if (res && ci->top < L->top + size) if (res && ci->top < L->top + size)
ci->top = L->top + size; /* adjust frame top */ ci->top = L->top + size; /* adjust frame top */