diff options
Diffstat (limited to 'ltests.c')
| -rw-r--r-- | ltests.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ltests.c,v 2.37 2006/06/05 19:35:57 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 2.38 2006/07/11 15:53:29 roberto Exp roberto $ |
| 3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -399,7 +399,7 @@ static char *buildop (Proto *p, int pc, char *buff) { | |||
| 399 | const char *name = luaP_opnames[o]; | 399 | const char *name = luaP_opnames[o]; |
| 400 | int line = getline(p, pc); | 400 | int line = getline(p, pc); |
| 401 | sprintf(buff, "(%4d) %4d - ", line, pc); | 401 | sprintf(buff, "(%4d) %4d - ", line, pc); |
| 402 | switch (getOpMode(o)) { | 402 | switch (getOpMode(o)) { |
| 403 | case iABC: | 403 | case iABC: |
| 404 | sprintf(buff+strlen(buff), "%-12s%4d %4d %4d", name, | 404 | sprintf(buff+strlen(buff), "%-12s%4d %4d %4d", name, |
| 405 | GETARG_A(i), GETARG_B(i), GETARG_C(i)); | 405 | GETARG_A(i), GETARG_B(i), GETARG_C(i)); |
| @@ -581,7 +581,7 @@ static int table_query (lua_State *L) { | |||
| 581 | else if (i < t->sizearray) { | 581 | else if (i < t->sizearray) { |
| 582 | lua_pushinteger(L, i); | 582 | lua_pushinteger(L, i); |
| 583 | pushobject(L, &t->array[i]); | 583 | pushobject(L, &t->array[i]); |
| 584 | lua_pushnil(L); | 584 | lua_pushnil(L); |
| 585 | } | 585 | } |
| 586 | else if ((i -= t->sizearray) < sizenode(t)) { | 586 | else if ((i -= t->sizearray) < sizenode(t)) { |
| 587 | if (!ttisnil(gval(gnode(t, i))) || | 587 | if (!ttisnil(gval(gnode(t, i))) || |
| @@ -821,7 +821,7 @@ static int getnum_aux (lua_State *L, const char **pc) { | |||
| 821 | while (isdigit(cast_int(**pc))) res = res*10 + (*(*pc)++) - '0'; | 821 | while (isdigit(cast_int(**pc))) res = res*10 + (*(*pc)++) - '0'; |
| 822 | return sig*res; | 822 | return sig*res; |
| 823 | } | 823 | } |
| 824 | 824 | ||
| 825 | static const char *getname_aux (char *buff, const char **pc) { | 825 | static const char *getname_aux (char *buff, const char **pc) { |
| 826 | int i = 0; | 826 | int i = 0; |
| 827 | skip(pc); | 827 | skip(pc); |
