diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2025-01-30 11:41:39 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2025-01-30 11:41:39 -0300 |
commit | d1e677c52be3b107a7a29fdc482158f6d9251e79 (patch) | |
tree | 6b201f229a9dc1f0752f6544b71498a4d528941d /lfunc.c | |
parent | f7439112a5469078ac4f444106242cf1c1d3fe8a (diff) | |
download | lua-d1e677c52be3b107a7a29fdc482158f6d9251e79.tar.gz lua-d1e677c52be3b107a7a29fdc482158f6d9251e79.tar.bz2 lua-d1e677c52be3b107a7a29fdc482158f6d9251e79.zip |
New type 'TStatus' for thread status/error codes
Diffstat (limited to 'lfunc.c')
-rw-r--r-- | lfunc.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -140,7 +140,8 @@ static void checkclosemth (lua_State *L, StkId level) { | |||
140 | ** the 'level' of the upvalue being closed, as everything after that | 140 | ** the 'level' of the upvalue being closed, as everything after that |
141 | ** won't be used again. | 141 | ** won't be used again. |
142 | */ | 142 | */ |
143 | static void prepcallclosemth (lua_State *L, StkId level, int status, int yy) { | 143 | static void prepcallclosemth (lua_State *L, StkId level, TStatus status, |
144 | int yy) { | ||
144 | TValue *uv = s2v(level); /* value being closed */ | 145 | TValue *uv = s2v(level); /* value being closed */ |
145 | TValue *errobj; | 146 | TValue *errobj; |
146 | if (status == CLOSEKTOP) | 147 | if (status == CLOSEKTOP) |
@@ -224,7 +225,7 @@ static void poptbclist (lua_State *L) { | |||
224 | ** Close all upvalues and to-be-closed variables up to the given stack | 225 | ** Close all upvalues and to-be-closed variables up to the given stack |
225 | ** level. Return restored 'level'. | 226 | ** level. Return restored 'level'. |
226 | */ | 227 | */ |
227 | StkId luaF_close (lua_State *L, StkId level, int status, int yy) { | 228 | StkId luaF_close (lua_State *L, StkId level, TStatus status, int yy) { |
228 | ptrdiff_t levelrel = savestack(L, level); | 229 | ptrdiff_t levelrel = savestack(L, level); |
229 | luaF_closeupval(L, level); /* first, close the upvalues */ | 230 | luaF_closeupval(L, level); /* first, close the upvalues */ |
230 | while (L->tbclist.p >= level) { /* traverse tbc's down to that level */ | 231 | while (L->tbclist.p >= level) { /* traverse tbc's down to that level */ |