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

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

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.

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