* 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.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index cccfd4c..5788e47 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,11 @@
+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.

diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index 6a75cd4..785c679 100644 (file)
--- 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 b41c9d7..35c64b8 100644 (file)
--- 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 e5e5d1d..6af573b 100644 (file)
--- 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