From: Stan Shebs <shebs@codesourcery.com>
Date: Fri, 16 Apr 2010 18:22:01 +0000 (+0000)
Subject: 2010-04-16  Stan Shebs  <stan@codesourcery.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f90824dcbc643d327b85e6db5f9cabba0a51aa85;p=binutils-gdb.git

2010-04-16  Stan Shebs  <stan@codesourcery.com>

	* tracepoint.c (trace_variable_command): Run a cleanup.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c6465a01271..3a2268986dc 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2010-04-16  Stan Shebs  <stan@codesourcery.com>
+
+	* tracepoint.c (trace_variable_command): Run a cleanup.
+
 2010-04-16  Pierre Muller  <muller@ics.u-strasbg.fr>
 
 	* p-lang.c (pascal_one_char): Do not restrict C to 0..255 range.
diff --git a/gdb/tracepoint.c b/gdb/tracepoint.c
index bf328fd98ff..2771ee7795c 100644
--- a/gdb/tracepoint.c
+++ b/gdb/tracepoint.c
@@ -365,6 +365,7 @@ trace_variable_command (char *args, int from_tty)
       tsv->initial_value = initval;
       printf_filtered (_("Trace state variable $%s now has initial value %s.\n"),
 		       tsv->name, plongest (tsv->initial_value));
+      do_cleanups (old_chain);
       return;
     }