gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 23:24:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix tracebacks for failed coroutines.

Browse Source
This commit is contained in:
Mike Pall 2010-03-07 18:21:14 +01:00
parent 9fd1c6c586
commit f354b46d29
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lj_err.c
View File

@ -96,6 +96,8 @@ static BCPos currentpc(lua_State *L, GCfunc *fn, cTValue *nextframe)
if (!isluafunc(fn)) { /* Cannot derive a PC for non-Lua functions. */ if (!isluafunc(fn)) { /* Cannot derive a PC for non-Lua functions. */
return ~(BCPos)0; return ~(BCPos)0;
} else if (nextframe == NULL) { /* Lua function on top. */ } else if (nextframe == NULL) { /* Lua function on top. */
if (L->cframe == NULL)
return ~(BCPos)0;
ins = cframe_Lpc(L); /* Only happens during error/hook handling. */ ins = cframe_Lpc(L); /* Only happens during error/hook handling. */
} else { } else {
if (frame_islua(nextframe)) { if (frame_islua(nextframe)) {
@ -106,6 +108,8 @@ static BCPos currentpc(lua_State *L, GCfunc *fn, cTValue *nextframe)
/* Lua function below errfunc/gc/hook: find cframe to get the PC. */ /* Lua function below errfunc/gc/hook: find cframe to get the PC. */
void *cf = cframe_raw(L->cframe); void *cf = cframe_raw(L->cframe);
TValue *f = L->base-1; TValue *f = L->base-1;
if (cf == NULL)
return ~(BCPos)0;
while (f > nextframe) { while (f > nextframe) {
if (frame_islua(f)) { if (frame_islua(f)) {
f = frame_prevl(f); f = frame_prevl(f);