aboutsummaryrefslogtreecommitdiff
path: root/ldebug.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-03-30 17:55:50 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-03-30 17:55:50 -0300
commit8f0f54ec3835f5d1637ae2720e2b4de6a177574a (patch)
tree8b925203df562cc955e71fef21dd607ac7e2469a /ldebug.c
parent556a89e53751135f45d8dd1e84651461b67e1f81 (diff)
downloadlua-8f0f54ec3835f5d1637ae2720e2b4de6a177574a.tar.gz
lua-8f0f54ec3835f5d1637ae2720e2b4de6a177574a.tar.bz2
lua-8f0f54ec3835f5d1637ae2720e2b4de6a177574a.zip
name change
Diffstat (limited to 'ldebug.c')
-rw-r--r--ldebug.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/ldebug.c b/ldebug.c
index c392820c..ef934d86 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -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 @@
25static const lua_Type normtype[] = { /* ORDER LUA_T */ 25static 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) {
88static int lua_nups (StkId f) { 88static 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
104static Proto *getluaproto (StkId f) { 104static 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) {
135static void lua_funcinfo (lua_Debug *ar) { 135static 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";