+2008-09-02 Keith Seitz <keiths@redhat.com>
+
+ * generic/gdbtk-cmds.c (gdb_listfuncs): Use SYMBOL_PRINT_NAME
+ instead of DEPRECATED_SYMBOL_NAME.
+ * generic/gdbtk-stack.c (gdb_block_vars): Likewise.
+ (gdb_get_vars_command): Likewise.
+ * generic/gdbtk.h (GDBTK_SYMBOL_SOURCE_NAME): Likewise.
+
2008-08-02 Keith Seitz <keiths@redhat.com>
* generic/gdbtk-cmds.c: Don't include itcl.h.
}
else
{
- funcVals[0] = Tcl_NewStringObj (DEPRECATED_SYMBOL_NAME (sym), -1);
+ funcVals[0] = Tcl_NewStringObj (SYMBOL_PRINT_NAME (sym), -1);
funcVals[1] = not_mangled;
}
Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr,
case LOC_REGISTER: /* register */
case LOC_COMPUTED: /* computed location */
Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr,
- Tcl_NewStringObj (DEPRECATED_SYMBOL_NAME (sym),
+ Tcl_NewStringObj (SYMBOL_PRINT_NAME (sym),
-1));
break;
case LOC_REGPARM_ADDR: /* indirect register arg */
if (arguments)
Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr,
- Tcl_NewStringObj (DEPRECATED_SYMBOL_NAME (sym), -1));
+ Tcl_NewStringObj (SYMBOL_PRINT_NAME (sym), -1));
break;
case LOC_LOCAL: /* stack local */
case LOC_STATIC: /* static */
case LOC_COMPUTED: /* computed location */
if (!arguments)
Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr,
- Tcl_NewStringObj (DEPRECATED_SYMBOL_NAME (sym), -1));
+ Tcl_NewStringObj (SYMBOL_PRINT_NAME (sym), -1));
break;
}
}
#define GDBTK_SYMBOL_SOURCE_NAME(symbol) \
(SYMBOL_DEMANGLED_NAME (symbol) != NULL \
? SYMBOL_DEMANGLED_NAME (symbol) \
- : DEPRECATED_SYMBOL_NAME (symbol))
+ : SYMBOL_PRINT_NAME (symbol))
/* gdbtk_add_hooks - add all the hooks to gdb. This will get called