From dfca1f5ff1bce08a22cead707e5894fd02f21fa9 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Tue, 22 Aug 2000 04:15:46 +0200
Subject: [PATCH] Prefix functions with "object->" in backtraces when that
 provides useful information.

Rev: lib/master.pike.in:1.125
---
 lib/master.pike.in | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/lib/master.pike.in b/lib/master.pike.in
index 1da1e8a61e..2e2c2c8480 100644
--- a/lib/master.pike.in
+++ b/lib/master.pike.in
@@ -1,6 +1,6 @@
 /* -*- Pike -*-
  *	
- * $Id: master.pike.in,v 1.124 2000/08/02 11:06:36 grubba Exp $
+ * $Id: master.pike.in,v 1.125 2000/08/22 02:15:46 mast Exp $
  * 
  * Master-file for Pike.
  *
@@ -1681,8 +1681,15 @@ string describe_backtrace(mixed trace, void|int linewidth)
 	  
 	  if(sizeof(tmp)>=3)
 	  {
-	    if(functionp(tmp[2]))
-	      data = function_name(tmp[2]);
+	    if(functionp(tmp[2])) {
+	      data = "";
+	      if (object o = function_object(tmp[2])) {
+		string s;
+		if (!catch (s = sprintf("%O",o)) && s != "object")
+		  data = s + "->";
+	      }
+	      data += function_name(tmp[2]);
+	    }
 	    else if (stringp(tmp[2])) {
 	      data= tmp[2];
 	    } else
-- 
GitLab