diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-06-15 17:36:57 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-06-15 17:36:57 -0300 |
| commit | 8e586c13fcf3066886a7edd69011304eaad57a2b (patch) | |
| tree | 417c2102ba8c4d693c49a2df839612d371eded50 /ldebug.c | |
| parent | eadf2aaaffa7a35e7f67b150ce0d57f2c17b9231 (diff) | |
| download | lua-8e586c13fcf3066886a7edd69011304eaad57a2b.tar.gz lua-8e586c13fcf3066886a7edd69011304eaad57a2b.tar.bz2 lua-8e586c13fcf3066886a7edd69011304eaad57a2b.zip | |
cleaner way to ensure alignment for strings and userdata
Diffstat (limited to 'ldebug.c')
| -rw-r--r-- | ldebug.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 1.81 2001/06/08 19:00:57 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 1.82 2001/06/11 14:56:42 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 | */ |
| @@ -483,7 +483,7 @@ static const l_char *getobjname (lua_State *L, StkId obj, const l_char **name) { | |||
| 483 | switch (GET_OPCODE(i)) { | 483 | switch (GET_OPCODE(i)) { |
| 484 | case OP_GETGLOBAL: { | 484 | case OP_GETGLOBAL: { |
| 485 | lua_assert(ttype(&p->k[GETARG_Bc(i)]) == LUA_TSTRING); | 485 | lua_assert(ttype(&p->k[GETARG_Bc(i)]) == LUA_TSTRING); |
| 486 | *name = getstr(tsvalue(&p->k[GETARG_Bc(i)])); | 486 | *name = svalue(&p->k[GETARG_Bc(i)]); |
| 487 | return l_s("global"); | 487 | return l_s("global"); |
| 488 | } | 488 | } |
| 489 | case OP_MOVE: { | 489 | case OP_MOVE: { |
| @@ -497,7 +497,7 @@ static const l_char *getobjname (lua_State *L, StkId obj, const l_char **name) { | |||
| 497 | case OP_SELF: { | 497 | case OP_SELF: { |
| 498 | int c = GETARG_C(i) - MAXSTACK; | 498 | int c = GETARG_C(i) - MAXSTACK; |
| 499 | if (c >= 0 && ttype(&p->k[c]) == LUA_TSTRING) { | 499 | if (c >= 0 && ttype(&p->k[c]) == LUA_TSTRING) { |
| 500 | *name = getstr(tsvalue(&p->k[c])); | 500 | *name = svalue(&p->k[c]); |
| 501 | return l_s("field"); | 501 | return l_s("field"); |
| 502 | } | 502 | } |
| 503 | break; | 503 | break; |
