2001-11-30 Martin M. Hunt <hunt@redhat.com>

	* library/interface.tcl (gdbtk_eval): Remove
	undocumented debug function.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 5246a32..026417a 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-30  Martin M. Hunt  <hunt@redhat.com>
+
+       * library/interface.tcl (gdbtk_eval): Remove
+       undocumented debug function.
+
 2001-11-21  Tom Tromey  <tromey@redhat.com>
 
        * library/interface.tcl (gdbtk_tcl_preloop): Override session's

diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl
index 1c6a81e..92845ac 100644 (file)
--- a/gdb/gdbtk/library/interface.tcl
+++ b/gdb/gdbtk/library/interface.tcl
@@ -1767,21 +1767,3 @@ proc gdbtk_tcl_architecture_changed {} {
   GDBEventHandler::dispatch $e
   delete object $e
 }
-
-proc gdbtk_eval {exp} {
-  debug $exp
-  set ret [catch {gdb_cmd "p/x $exp"} val]
-  if {$ret} {
-    return "" 
-  }
-
-  debug "val=\"$val\""
-  # response looks like "$1 = value\n"
-  set ind [string first "=" $val]
-  if { $ind == -1 } { return "" }
-  set val [string range $val [expr $ind + 1] [string length $val]]
-  set val [string trimleft $val]
-  set val [string trimright $val "\n"]
-  debug "returning \"$val\""
-  return $val
-}
\ No newline at end of file