From f90824dcbc643d327b85e6db5f9cabba0a51aa85 Mon Sep 17 00:00:00 2001
From: Stan Shebs <shebs@codesourcery.com>
Date: Fri, 16 Apr 2010 18:22:01 +0000
Subject: [PATCH] 2010-04-16  Stan Shebs  <stan@codesourcery.com>

	* tracepoint.c (trace_variable_command): Run a cleanup.
---
 gdb/ChangeLog    | 4 ++++
 gdb/tracepoint.c | 1 +
 2 files changed, 5 insertions(+)

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;
     }
 
-- 
2.30.2