From 921d61e0acacaa74f68e69ce75810a5c8a8eedaa Mon Sep 17 00:00:00 2001 From: kseitz Date: Tue, 2 Sep 2008 17:29:23 +0000 Subject: [PATCH] * 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. --- gdb/gdbtk/ChangeLog | 8 ++++++++ gdb/gdbtk/generic/gdbtk-cmds.c | 2 +- gdb/gdbtk/generic/gdbtk-stack.c | 6 +++--- gdb/gdbtk/generic/gdbtk.h | 2 +- 4 files changed, 13 insertions(+), 5 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index cccfd4cba9..5788e471f7 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,11 @@ +2008-09-02 Keith Seitz + + * 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 * generic/gdbtk-cmds.c: Don't include itcl.h. diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c index 6a75cd4cc5..785c679e5a 100644 --- a/gdb/gdbtk/generic/gdbtk-cmds.c +++ b/gdb/gdbtk/generic/gdbtk-cmds.c @@ -1495,7 +1495,7 @@ gdb_listfuncs (clientData, interp, objc, objv) } 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, diff --git a/gdb/gdbtk/generic/gdbtk-stack.c b/gdb/gdbtk/generic/gdbtk-stack.c index b41c9d74f5..35c64b8f3e 100644 --- a/gdb/gdbtk/generic/gdbtk-stack.c +++ b/gdb/gdbtk/generic/gdbtk-stack.c @@ -122,7 +122,7 @@ gdb_block_vars (ClientData clientData, Tcl_Interp *interp, 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; @@ -337,7 +337,7 @@ gdb_get_vars_command (ClientData clientData, Tcl_Interp *interp, 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 */ @@ -345,7 +345,7 @@ gdb_get_vars_command (ClientData clientData, Tcl_Interp *interp, 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; } } diff --git a/gdb/gdbtk/generic/gdbtk.h b/gdb/gdbtk/generic/gdbtk.h index e5e5d1da38..6af573beff 100644 --- a/gdb/gdbtk/generic/gdbtk.h +++ b/gdb/gdbtk/generic/gdbtk.h @@ -176,7 +176,7 @@ extern void #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 -- 2.11.0