From ebcf546a551cae37835af5ddf6105e2e97706047 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 23 Oct 1995 11:53:48 -0200
Subject: small changes in the format of debug information.

---
 iolib.c |  9 +++++----
 table.c | 12 ++++++++----
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/iolib.c b/iolib.c
index 31eba5c5..90d4ee57 100644
--- a/iolib.c
+++ b/iolib.c
@@ -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);
   }
 }
 
diff --git a/table.c b/table.c
index 2cf103c4..6de417a6 100644
--- a/table.c
+++ b/table.c
@@ -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)";
+    }
   }
 }
 
-- 
cgit v1.2.3-55-g6feb