diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-30 17:55:50 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-30 17:55:50 -0300 |
commit | 8f0f54ec3835f5d1637ae2720e2b4de6a177574a (patch) | |
tree | 8b925203df562cc955e71fef21dd607ac7e2469a /ldebug.c | |
parent | 556a89e53751135f45d8dd1e84651461b67e1f81 (diff) | |
download | lua-8f0f54ec3835f5d1637ae2720e2b4de6a177574a.tar.gz lua-8f0f54ec3835f5d1637ae2720e2b4de6a177574a.tar.bz2 lua-8f0f54ec3835f5d1637ae2720e2b4de6a177574a.zip |
name change
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"; |