diff options
Diffstat (limited to 'ldebug.c')
| -rw-r--r-- | ldebug.c | 12 |
1 files changed, 6 insertions, 6 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 1.14 2000/03/29 20:19:20 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 1.15 2000/03/30 17:19:48 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 | */ |
| @@ -25,7 +25,7 @@ | |||
| 25 | static const lua_Type normtype[] = { /* ORDER LUA_T */ | 25 | static const lua_Type normtype[] = { /* ORDER LUA_T */ |
| 26 | TAG_USERDATA, TAG_NUMBER, TAG_STRING, TAG_TABLE, | 26 | TAG_USERDATA, TAG_NUMBER, TAG_STRING, TAG_TABLE, |
| 27 | TAG_LCLOSURE, TAG_CCLOSURE, TAG_NIL, | 27 | TAG_LCLOSURE, TAG_CCLOSURE, TAG_NIL, |
| 28 | TAG_LCLOSURE, TAG_CCLOSURE /* TAG_LCLMARK, TAG_CCLMARK */ | 28 | TAG_LCLOSURE, TAG_CCLOSURE /* TAG_LMARK, TAG_CMARK */ |
| 29 | }; | 29 | }; |
| 30 | 30 | ||
| 31 | 31 | ||
| @@ -88,7 +88,7 @@ int lua_getstack (lua_State *L, int level, lua_Debug *ar) { | |||
| 88 | static int lua_nups (StkId f) { | 88 | static int lua_nups (StkId f) { |
| 89 | switch (ttype(f)) { | 89 | switch (ttype(f)) { |
| 90 | case TAG_LCLOSURE: case TAG_CCLOSURE: | 90 | case TAG_LCLOSURE: case TAG_CCLOSURE: |
| 91 | case TAG_LCLMARK: case TAG_CCLMARK: | 91 | case TAG_LMARK: case TAG_CMARK: |
| 92 | return f->value.cl->nelems; | 92 | return f->value.cl->nelems; |
| 93 | default: | 93 | default: |
| 94 | return 0; | 94 | return 0; |
| @@ -102,7 +102,7 @@ static int lua_currentline (lua_State *L, StkId f) { | |||
| 102 | 102 | ||
| 103 | 103 | ||
| 104 | static Proto *getluaproto (StkId f) { | 104 | static Proto *getluaproto (StkId f) { |
| 105 | return (ttype(f) == TAG_LCLMARK) ? clvalue(f)->f.l : NULL; | 105 | return (ttype(f) == TAG_LMARK) ? clvalue(f)->f.l : NULL; |
| 106 | } | 106 | } |
| 107 | 107 | ||
| 108 | 108 | ||
| @@ -135,12 +135,12 @@ int lua_setlocal (lua_State *L, const lua_Debug *ar, lua_Localvar *v) { | |||
| 135 | static void lua_funcinfo (lua_Debug *ar) { | 135 | static void lua_funcinfo (lua_Debug *ar) { |
| 136 | StkId func = ar->_func; | 136 | StkId func = ar->_func; |
| 137 | switch (ttype(func)) { | 137 | switch (ttype(func)) { |
| 138 | case TAG_LCLOSURE: case TAG_LCLMARK: | 138 | case TAG_LCLOSURE: case TAG_LMARK: |
| 139 | ar->source = clvalue(func)->f.l->source->str; | 139 | ar->source = clvalue(func)->f.l->source->str; |
| 140 | ar->linedefined = clvalue(func)->f.l->lineDefined; | 140 | ar->linedefined = clvalue(func)->f.l->lineDefined; |
| 141 | ar->what = "Lua"; | 141 | ar->what = "Lua"; |
| 142 | break; | 142 | break; |
| 143 | case TAG_CCLOSURE: case TAG_CCLMARK: | 143 | case TAG_CCLOSURE: case TAG_CMARK: |
| 144 | ar->source = "(C)"; | 144 | ar->source = "(C)"; |
| 145 | ar->linedefined = -1; | 145 | ar->linedefined = -1; |
| 146 | ar->what = "C"; | 146 | ar->what = "C"; |
