diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2017-11-03 10:12:30 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2017-11-03 10:12:30 -0200 |
| commit | 54eb35a8aa0f60265cf1b4764beabe1199d66f42 (patch) | |
| tree | 83bc4049d312bdbe0b8e78ed1745839fcf9a5a03 /lgc.c | |
| parent | ba36180fd7b68341ad57e0fbe7a55cdfb334908d (diff) | |
| download | lua-54eb35a8aa0f60265cf1b4764beabe1199d66f42.tar.gz lua-54eb35a8aa0f60265cf1b4764beabe1199d66f42.tar.bz2 lua-54eb35a8aa0f60265cf1b4764beabe1199d66f42.zip | |
more fields moved out of 'CallInfo'
Diffstat (limited to 'lgc.c')
| -rw-r--r-- | lgc.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lgc.c,v 2.235 2017/10/11 12:38:45 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 2.236 2017/10/31 15:29:28 roberto Exp roberto $ |
| 3 | ** Garbage Collector | 3 | ** Garbage Collector |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -866,9 +866,9 @@ static void GCTM (lua_State *L, int propagateerrors) { | |||
| 866 | setobj2s(L, L->top, tm); /* push finalizer... */ | 866 | setobj2s(L, L->top, tm); /* push finalizer... */ |
| 867 | setobj2s(L, L->top + 1, &v); /* ... and its argument */ | 867 | setobj2s(L, L->top + 1, &v); /* ... and its argument */ |
| 868 | L->top += 2; /* and (next line) call the finalizer */ | 868 | L->top += 2; /* and (next line) call the finalizer */ |
| 869 | L->ci->callstatus |= CIST_FIN; /* will run a finalizer */ | 869 | callstatus(L->func) |= CIST_FIN; /* will run a finalizer */ |
| 870 | status = luaD_pcall(L, dothecall, NULL, savestack(L, L->top - 2), 0); | 870 | status = luaD_pcall(L, dothecall, NULL, savestack(L, L->top - 2), 0); |
| 871 | L->ci->callstatus &= ~CIST_FIN; /* not running a finalizer anymore */ | 871 | callstatus(L->func) &= ~CIST_FIN; /* not running a finalizer anymore */ |
| 872 | L->allowhook = oldah; /* restore hooks */ | 872 | L->allowhook = oldah; /* restore hooks */ |
| 873 | g->gcrunning = running; /* restore state */ | 873 | g->gcrunning = running; /* restore state */ |
| 874 | if (status != LUA_OK && propagateerrors) { /* error while running __gc? */ | 874 | if (status != LUA_OK && propagateerrors) { /* error while running __gc? */ |