diff options
| author | Martin Hunt <hunt@redhat.com> | 2001-11-30 23:31:15 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 2001-11-30 23:31:15 +0000 |
| commit | de847ab24a8e94aa5d1afb1bd4d694ba2a1cabaf (patch) | |
| tree | aeed81c6520ee58d68cc23fd6fd9a1f05fabf12b /gdb/gdbtk | |
| parent | 15f9999df31be1fdd4865a28bff7c0ff3cd8d1c8 (diff) | |
| download | gdb-de847ab24a8e94aa5d1afb1bd4d694ba2a1cabaf.tar.gz | |
2001-11-30 Martin M. Hunt <hunt@redhat.com>
* library/interface.tcl (gdbtk_eval): Remove
undocumented debug function.
Diffstat (limited to 'gdb/gdbtk')
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/gdbtk/library/interface.tcl | 18 |
2 files changed, 5 insertions, 18 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 5246a3290fe..026417a4cba 100644 --- 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 1c6a81e86ef..92845ac9771 100644 --- 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 |