aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2009-04-27 15:58:31 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2009-04-27 15:58:31 -0300
commitc1f78ff3d32298fbae950bf655bdca11179343ce (patch)
tree0938ec28a92f98f459b6c9a140fae899a4ee0475
parente5249b9fb54fce969dbdfffaaee3deff9e58e096 (diff)
downloadlua-c1f78ff3d32298fbae950bf655bdca11179343ce.tar.gz
lua-c1f78ff3d32298fbae950bf655bdca11179343ce.tar.bz2
lua-c1f78ff3d32298fbae950bf655bdca11179343ce.zip
unused arguments removed
-rw-r--r--ldebug.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/ldebug.c b/ldebug.c
index 629d040b..0e9d6282 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldebug.c,v 2.46 2009/04/17 14:28:06 roberto Exp roberto $ 2** $Id: ldebug.c,v 2.47 2009/04/17 22:00:01 roberto Exp roberto $
3** Debug Interface 3** Debug Interface
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -33,14 +33,14 @@
33static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name); 33static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name);
34 34
35 35
36static int currentpc (lua_State *L, CallInfo *ci) { 36static int currentpc (CallInfo *ci) {
37 if (!isLua(ci)) return -1; /* function is not a Lua function? */ 37 if (!isLua(ci)) return -1; /* function is not a Lua function? */
38 return pcRel(ci->u.l.savedpc, ci_func(ci)->l.p); 38 return pcRel(ci->u.l.savedpc, ci_func(ci)->l.p);
39} 39}
40 40
41 41
42static int currentline (lua_State *L, CallInfo *ci) { 42static int currentline (CallInfo *ci) {
43 int pc = currentpc(L, ci); 43 int pc = currentpc(ci);
44 if (pc < 0) 44 if (pc < 0)
45 return -1; /* only active lua functions have current-line information */ 45 return -1; /* only active lua functions have current-line information */
46 else 46 else
@@ -111,7 +111,7 @@ static Proto *getluaproto (CallInfo *ci) {
111static const char *findlocal (lua_State *L, CallInfo *ci, int n) { 111static const char *findlocal (lua_State *L, CallInfo *ci, int n) {
112 const char *name; 112 const char *name;
113 Proto *fp = getluaproto(ci); 113 Proto *fp = getluaproto(ci);
114 if (fp && (name = luaF_getlocalname(fp, n, currentpc(L, ci))) != NULL) 114 if (fp && (name = luaF_getlocalname(fp, n, currentpc(ci))) != NULL)
115 return name; /* is a local variable in a Lua function */ 115 return name; /* is a local variable in a Lua function */
116 else { 116 else {
117 StkId limit = (ci == L->ci) ? L->top : ci->next->func; 117 StkId limit = (ci == L->ci) ? L->top : ci->next->func;
@@ -207,7 +207,7 @@ static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar,
207 break; 207 break;
208 } 208 }
209 case 'l': { 209 case 'l': {
210 ar->currentline = (ci) ? currentline(L, ci) : -1; 210 ar->currentline = (ci) ? currentline(ci) : -1;
211 break; 211 break;
212 } 212 }
213 case 'u': { 213 case 'u': {
@@ -477,7 +477,7 @@ static const char *getobjname (lua_State *L, CallInfo *ci, int stackpos,
477 const char **name) { 477 const char **name) {
478 if (isLua(ci)) { /* a Lua function? */ 478 if (isLua(ci)) { /* a Lua function? */
479 Proto *p = ci_func(ci)->l.p; 479 Proto *p = ci_func(ci)->l.p;
480 int pc = currentpc(L, ci); 480 int pc = currentpc(ci);
481 Instruction i; 481 Instruction i;
482 *name = luaF_getlocalname(p, stackpos+1, pc); 482 *name = luaF_getlocalname(p, stackpos+1, pc);
483 if (*name) /* is a local? */ 483 if (*name) /* is a local? */
@@ -526,7 +526,7 @@ static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) {
526 if ((isLua(ci) && ci->u.l.tailcalls > 0) || !isLua(ci->previous)) 526 if ((isLua(ci) && ci->u.l.tailcalls > 0) || !isLua(ci->previous))
527 return NULL; /* calling function is not Lua (or is unknown) */ 527 return NULL; /* calling function is not Lua (or is unknown) */
528 ci = ci->previous; /* calling function */ 528 ci = ci->previous; /* calling function */
529 i = ci_func(ci)->l.p->code[currentpc(L, ci)]; 529 i = ci_func(ci)->l.p->code[currentpc(ci)];
530 switch (GET_OPCODE(i)) { 530 switch (GET_OPCODE(i)) {
531 case OP_CALL: 531 case OP_CALL:
532 case OP_TAILCALL: 532 case OP_TAILCALL:
@@ -610,7 +610,7 @@ static void addinfo (lua_State *L, const char *msg) {
610 CallInfo *ci = L->ci; 610 CallInfo *ci = L->ci;
611 if (isLua(ci)) { /* is Lua code? */ 611 if (isLua(ci)) { /* is Lua code? */
612 char buff[LUA_IDSIZE]; /* add file:line information */ 612 char buff[LUA_IDSIZE]; /* add file:line information */
613 int line = currentline(L, ci); 613 int line = currentline(ci);
614 luaO_chunkid(buff, getstr(getluaproto(ci)->source), LUA_IDSIZE); 614 luaO_chunkid(buff, getstr(getluaproto(ci)->source), LUA_IDSIZE);
615 luaO_pushfstring(L, "%s:%d: %s", buff, line, msg); 615 luaO_pushfstring(L, "%s:%d: %s", buff, line, msg);
616 } 616 }