This is the mail archive of the insight@sources.redhat.com mailing list for the Insight project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [patch] Missing newline


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.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]