From: Martin Hunt <hunt@redhat.com>
Date: Tue, 18 Aug 1998 22:43:18 +0000 (+0000)
Subject: Tue Aug 18 15:42:40 1998  Martin M. Hunt  <hunt@cygnus.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1aecc7dccb3ed3995f7c2f92fd728e4cc6d5cc4c;p=binutils-gdb.git

Tue Aug 18 15:42:40 1998  Martin M. Hunt  <hunt@cygnus.com>

	* gdbtk-cmds.c (gdb_listfuncs): Strip out global constructors
	and destructors from the function list.
---

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 27051026b36..d7be994c2e5 100644
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,8 @@
+Tue Aug 18 15:42:40 1998  Martin M. Hunt  <hunt@cygnus.com>
+
+	* gdbtk-cmds.c (gdb_listfuncs): Strip out global constructors
+	and destructors from the function list.
+
 start-sanitize-ide
 Thu Aug 13 15:15:59 1998  Drew Moseley  <dmoseley@cygnus.com>
 
diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c
index de44004cf82..9cefd82ad9a 100644
--- a/gdb/gdbtk-cmds.c
+++ b/gdb/gdbtk-cmds.c
@@ -1444,8 +1444,13 @@ gdb_listfuncs (clientData, interp, objc, objv)
 	      char *name = cplus_demangle (SYMBOL_NAME(sym), 0);
 	      if (name)
 		{
-		  funcVals[0] = Tcl_NewStringObj(name, -1);
-		  funcVals[1] = mangled;	  
+		  /* strip out "global constructors" and "global destructors" */
+		  /* because we aren't interested in them. */
+		  if (strncmp (name, "global ", 7))
+		    {
+		      funcVals[0] = Tcl_NewStringObj(name, -1);
+		      funcVals[1] = mangled;	  
+		    }
 		}
 	      else
 		{