diff options
-rw-r--r-- | ldebug.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -133,10 +133,11 @@ static const char *upvalname (Proto *p, int uv) { | |||
133 | 133 | ||
134 | static const char *findvararg (CallInfo *ci, int n, StkId *pos) { | 134 | static const char *findvararg (CallInfo *ci, int n, StkId *pos) { |
135 | int nparams = clLvalue(ci->func)->p->numparams; | 135 | int nparams = clLvalue(ci->func)->p->numparams; |
136 | if (n >= cast_int(ci->u.l.base - ci->func) - nparams) | 136 | int nvararg = cast_int(ci->u.l.base - ci->func) - nparams; |
137 | if (n <= -nvararg) | ||
137 | return NULL; /* no such vararg */ | 138 | return NULL; /* no such vararg */ |
138 | else { | 139 | else { |
139 | *pos = ci->func + nparams + n; | 140 | *pos = ci->func + nparams - n; |
140 | return "(*vararg)"; /* generic name for any vararg */ | 141 | return "(*vararg)"; /* generic name for any vararg */ |
141 | } | 142 | } |
142 | } | 143 | } |
@@ -148,7 +149,7 @@ static const char *findlocal (lua_State *L, CallInfo *ci, int n, | |||
148 | StkId base; | 149 | StkId base; |
149 | if (isLua(ci)) { | 150 | if (isLua(ci)) { |
150 | if (n < 0) /* access to vararg values? */ | 151 | if (n < 0) /* access to vararg values? */ |
151 | return findvararg(ci, -n, pos); | 152 | return findvararg(ci, n, pos); |
152 | else { | 153 | else { |
153 | base = ci->u.l.base; | 154 | base = ci->u.l.base; |
154 | name = luaF_getlocalname(ci_func(ci)->p, n, currentpc(ci)); | 155 | name = luaF_getlocalname(ci_func(ci)->p, n, currentpc(ci)); |