aboutsummaryrefslogtreecommitdiff
path: root/ldblib.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2020-02-27 12:59:22 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2020-02-27 12:59:22 -0300
commit6eb53b752617fae9e1329bfe2cfecdcbb593c398 (patch)
treec392ef632bbcfbf7b3716f5c6c17b06617bca8da /ldblib.c
parent9b7987a9d1471ba94764286b28e0998f73deb46a (diff)
downloadlua-6eb53b752617fae9e1329bfe2cfecdcbb593c398.tar.gz
lua-6eb53b752617fae9e1329bfe2cfecdcbb593c398.tar.bz2
lua-6eb53b752617fae9e1329bfe2cfecdcbb593c398.zip
Details
Several details in code (e.g., moving a variable to the most inner scope that encloses its uses), comments, parameter names, extra tests.
Diffstat (limited to 'ldblib.c')
-rw-r--r--ldblib.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/ldblib.c b/ldblib.c
index 77018986..745cfd27 100644
--- a/ldblib.c
+++ b/ldblib.c
@@ -202,8 +202,6 @@ static int db_getinfo (lua_State *L) {
202static int db_getlocal (lua_State *L) { 202static int db_getlocal (lua_State *L) {
203 int arg; 203 int arg;
204 lua_State *L1 = getthread(L, &arg); 204 lua_State *L1 = getthread(L, &arg);
205 lua_Debug ar;
206 const char *name;
207 int nvar = (int)luaL_checkinteger(L, arg + 2); /* local-variable index */ 205 int nvar = (int)luaL_checkinteger(L, arg + 2); /* local-variable index */
208 if (lua_isfunction(L, arg + 1)) { /* function argument? */ 206 if (lua_isfunction(L, arg + 1)) { /* function argument? */
209 lua_pushvalue(L, arg + 1); /* push function */ 207 lua_pushvalue(L, arg + 1); /* push function */
@@ -211,6 +209,8 @@ static int db_getlocal (lua_State *L) {
211 return 1; /* return only name (there is no value) */ 209 return 1; /* return only name (there is no value) */
212 } 210 }
213 else { /* stack-level argument */ 211 else { /* stack-level argument */
212 lua_Debug ar;
213 const char *name;
214 int level = (int)luaL_checkinteger(L, arg + 1); 214 int level = (int)luaL_checkinteger(L, arg + 1);
215 if (!lua_getstack(L1, level, &ar)) /* out of range? */ 215 if (!lua_getstack(L1, level, &ar)) /* out of range? */
216 return luaL_argerror(L, arg+1, "level out of range"); 216 return luaL_argerror(L, arg+1, "level out of range");