mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-01-16 22:29:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

small changes in the format of debug information.

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1995-10-23 11:53:48 -02:00
parent 2b45f8967c
commit ebcf546a55
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
iolib.c
View File

@ -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);
}
}

12
table.c
View File

@ -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)";
}
}
}