diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-10-23 11:53:48 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-10-23 11:53:48 -0200 |
commit | ebcf546a551cae37835af5ddf6105e2e97706047 (patch) | |
tree | d35cabde0399e65e42424048612cafbc43f908e1 | |
parent | 2b45f8967c459154f0d893c94b069dba182dec00 (diff) | |
download | lua-github-ebcf546a551cae37835af5ddf6105e2e97706047.tar.gz |
small changes in the format of debug information.
-rw-r--r-- | iolib.c | 9 | ||||
-rw-r--r-- | table.c | 12 |
2 files changed, 13 insertions, 8 deletions
@@ -3,7 +3,7 @@ ** Input/output library to LUA */ -char *rcs_iolib="$Id: iolib.c,v 1.23 1995/10/11 20:50:56 roberto Exp roberto $"; +char *rcs_iolib="$Id: iolib.c,v 1.24 1995/10/17 14:12:45 roberto Exp roberto $"; #include <stdio.h> #include <ctype.h> @@ -617,14 +617,15 @@ static void print_message (void) lua_funcinfo(func, &filename, &funcname, &objname, &linedefined); if (objname == NULL) if (funcname) - fprintf(stderr, "\t%s\n", funcname); + fprintf(stderr, "\t%s", funcname); else { fprintf(stderr, "\tmain of %s\n", filename); + continue; } else - fprintf(stderr, "\t%s:%s\n", objname, funcname); -/* fprintf(stderr, "\t(in file: %s)\n", filename); */ + fprintf(stderr, "\t%s:%s", objname, funcname); + fprintf(stderr, "\t(defined in %s)\n", filename); } } @@ -3,7 +3,7 @@ ** Module to control static tables */ -char *rcs_table="$Id: table.c,v 2.34 1995/10/13 15:16:25 roberto Exp roberto $"; +char *rcs_table="$Id: table.c,v 2.35 1995/10/17 11:58:41 roberto Exp roberto $"; #include <string.h> @@ -277,12 +277,16 @@ void luaI_funcInfo (struct Object *func, char **filename, char **funcname, { /* temporario: */ cfunc = func->value.f; - *filename = "(?)"; - *objname = 0; + *filename = "(C)"; *linedefined = 0; *funcname = lua_travsymbol(checkfunc); - if (*funcname == NULL) + if (*funcname) + *objname = 0; + else + { *funcname = luaI_travfallbacks(checkfunc); + *objname = "(FB)"; + } } } |