espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-07-01 01:45:51 +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> Sun Aug 30 00:49:18 1998 Martin M. Hunt <hunt@cygnus.com>
* gdbtk-cmds.c (Gdbtk_Init): Link C variable gdb_context * 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: default:
case LOC_UNDEF: /* catches errors */ case LOC_UNDEF: /* catches errors */
case LOC_CONST: /* constant */ case LOC_CONST: /* constant */
case LOC_STATIC: /* static */
case LOC_REGISTER: /* register */
case LOC_TYPEDEF: /* local typedef */ case LOC_TYPEDEF: /* local typedef */
case LOC_LABEL: /* local label */ case LOC_LABEL: /* local label */
case LOC_BLOCK: /* local function */ case LOC_BLOCK: /* local function */
@ -961,6 +959,8 @@ gdb_get_vars_command (clientData, interp, objc, objv)
break; break;
case LOC_LOCAL: /* stack local */ case LOC_LOCAL: /* stack local */
case LOC_BASEREG: /* basereg local */ case LOC_BASEREG: /* basereg local */
case LOC_STATIC: /* static */
case LOC_REGISTER: /* register */
if (!arguments) if (!arguments)
Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr,
Tcl_NewStringObj (SYMBOL_NAME (sym), -1)); Tcl_NewStringObj (SYMBOL_NAME (sym), -1));
@ -1469,6 +1469,9 @@ gdb_listfuncs (clientData, interp, objc, objv)
funcVals[0] = Tcl_NewStringObj(name, -1); funcVals[0] = Tcl_NewStringObj(name, -1);
funcVals[1] = mangled; funcVals[1] = mangled;
} }
else
continue;
} }
else else
{ {
@ -1520,8 +1523,8 @@ map_arg_registers (objc, objv, func, argp)
/* Else, list of register #s, just do listed regs */ /* Else, list of register #s, just do listed regs */
for (; objc > 0; objc--, objv++) 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; result_ptr->flags |= GDBTK_IN_TCL_RESULT;
return TCL_ERROR; return TCL_ERROR;
} }
@ -2709,7 +2712,6 @@ gdb_loadfile (clientData, interp, objc, objv)
Tcl_DStringAppend (&text_cmd_2, " insert end { } \"\"", -1); Tcl_DStringAppend (&text_cmd_2, " insert end { } \"\"", -1);
prefix_len_2 = Tcl_DStringLength(&text_cmd_2); prefix_len_2 = Tcl_DStringLength(&text_cmd_2);
while (fgets (line + 1, 980, fp)) while (fgets (line + 1, 980, fp))
{ {
if (ltable[ln >> 3] & (1 << (ln % 8))) if (ltable[ln >> 3] & (1 << (ln % 8)))