OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* gdbtk-cmds.c (gdb_search): Don't mention C++ RTTI and 

global constructor/destructor symbols.
This commit is contained in:
Keith Seitz 1998-12-17 17:06:25 +00:00
parent d744bbbbb8
commit c888792a27
2 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog-gdbtk
View File

@ -1,3 +1,8 @@
Thu Dec 17 09:00:56 1998 Keith Seitz <keiths@cygnus.com>
* gdbtk-cmds.c (gdb_search): Don't mention C++ RTTI and
global constructor/destructor symbols.
Tue Dec 15 10:09:31 1998 Andrew Cagney <cagney@b1.cygnus.com> Tue Dec 15 10:09:31 1998 Andrew Cagney <cagney@b1.cygnus.com>
* gdbtk-cmds.c (gdb_disassemble): Fix typo. * gdbtk-cmds.c (gdb_disassemble): Fix typo.

24
gdb/gdbtk-cmds.c
View File

@ -1357,6 +1357,7 @@ gdb_search (clientData, interp, objc, objv)
result_ptr->flags |= GDBTK_IN_TCL_RESULT; result_ptr->flags |= GDBTK_IN_TCL_RESULT;
return TCL_ERROR; return TCL_ERROR;
} }
}
switch ((enum switches_opts) index) switch ((enum switches_opts) index)
{ {
@ -1412,16 +1413,23 @@ gdb_search (clientData, interp, objc, objv)
if (static_only && p->block != STATIC_BLOCK) if (static_only && p->block != STATIC_BLOCK)
continue; continue;
elem = Tcl_NewListObj (0, NULL); /* Strip off some C++ special symbols, like RTTI and global
constructors/destructors. */
if ((p->symbol != NULL && !STREQN (SYMBOL_NAME (p->symbol), "__tf", 4)
&& !STREQN (SYMBOL_NAME (p->symbol), "_GLOBAL_", 8))
|| p->msymbol != NULL)
{
elem = Tcl_NewListObj (0, NULL);
if (p->msymbol == NULL) if (p->msymbol == NULL)
Tcl_ListObjAppendElement (interp, elem, Tcl_ListObjAppendElement (interp, elem,
Tcl_NewStringObj (SYMBOL_SOURCE_NAME (p->symbol), -1)); Tcl_NewStringObj (SYMBOL_SOURCE_NAME (p->symbol), -1));
else else
Tcl_ListObjAppendElement (interp, elem, Tcl_ListObjAppendElement (interp, elem,
Tcl_NewStringObj (SYMBOL_SOURCE_NAME (p->msymbol), -1)); Tcl_NewStringObj (SYMBOL_SOURCE_NAME (p->msymbol), -1));
Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, elem); Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, elem);
}
} }
if (ss != NULL) if (ss != NULL)