espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-26 13:56:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gdbtk-cmds.c (gdb_listfuncs): When stripping out "global destructors"

Browse Source 
and "global constructors", do not append any elements to the result.
 	(gdb_get_vars_command): Install patch from Jun 9 1998 which appears
        to have been lost.

        Clean up some tabbing mess.
This commit is contained in:
Keith Seitz
1998-08-31 21:34:09 +00:00
parent c1b27b2228
commit 4af2d83a66
2 changed files with 293 additions and 286 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog-gdbtk
View File

@ -1,3 +1,8 @@
1998-08-31 Keith Seitz <keiths@cygnus.com>
* gdbtk-cmds.c (gdb_listfuncs): When stripping out "global destructors"
and "global constructors", do not append any elements to the result.
Sun Aug 30 00:49:18 1998 Martin M. Hunt <hunt@cygnus.com>
* gdbtk-cmds.c (Gdbtk_Init): Link C variable gdb_context

12
gdb/gdbtk-cmds.c
View File

@ -940,8 +940,6 @@ gdb_get_vars_command (clientData, interp, objc, objv)
default:
case LOC_UNDEF: /* catches errors */
case LOC_CONST: /* constant */
case LOC_STATIC: /* static */
case LOC_REGISTER: /* register */
case LOC_TYPEDEF: /* local typedef */
case LOC_LABEL: /* local label */
case LOC_BLOCK: /* local function */
@ -961,6 +959,8 @@ gdb_get_vars_command (clientData, interp, objc, objv)
break;
case LOC_LOCAL: /* stack local */
case LOC_BASEREG: /* basereg local */
case LOC_STATIC: /* static */
case LOC_REGISTER: /* register */
if (!arguments)
Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr,
Tcl_NewStringObj (SYMBOL_NAME (sym), -1));
@ -1469,6 +1469,9 @@ gdb_listfuncs (clientData, interp, objc, objv)
funcVals[0] = Tcl_NewStringObj(name, -1);
funcVals[1] = mangled;
}
else
continue;
}
else
{
@ -1520,8 +1523,8 @@ map_arg_registers (objc, objv, func, argp)
/* Else, list of register #s, just do listed regs */
for (; objc > 0; objc--, objv++)
{
if (Tcl_GetIntFromObj (NULL, *objv, &regnum) != TCL_OK) {
if (Tcl_GetIntFromObj (NULL, *objv, &regnum) != TCL_OK)
{
result_ptr->flags |= GDBTK_IN_TCL_RESULT;
return TCL_ERROR;
}
@ -2709,7 +2712,6 @@ gdb_loadfile (clientData, interp, objc, objv)
Tcl_DStringAppend (&text_cmd_2, " insert end { } \"\"", -1);
prefix_len_2 = Tcl_DStringLength(&text_cmd_2);
while (fgets (line + 1, 980, fp))
{
if (ltable[ln >> 3] & (1 << (ln % 8)))