This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
Re: [patch] Missing newline
- From: "Martin M. Hunt" <hunt at redhat dot com>
- To: Andrew Cagney <ac131313 at cygnus dot com>, insight at sources dot redhat dot com
- Date: Fri, 30 Nov 2001 15:34:49 -0800
- Subject: Re: [patch] Missing newline
- Organization: Red Hat Inc
- References: <3C0810D4.2030807@cygnus.com>
On Friday 30 November 2001 03:05 pm, Andrew Cagney wrote:
> FYI,
>
> I checked in the attached as obvious.
>
> enjoy,
> Andrew
What isn't obvious is how I checked in that last function accidently.
I am removing the unapproved and unused function.
2001-11-30 Martin M. Hunt <hunt@redhat.com>
* library/interface.tcl (gdbtk_eval): Remove
undocumented debug function.
Index: library/interface.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -p -r1.33 -r1.34
--- interface.tcl 2001/11/22 00:26:12 1.33
+++ interface.tcl 2001/11/30 23:31:15 1.34
@@ -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
--
Martin Hunt
GDB Engineer
Red Hat, Inc.