* gdbtk.c (gdbtk_readline): Fix memory leak.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 27e172b..5cd75e7 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,4 +1,8 @@
 start-sanitize-gdbtk
+Tue Nov 19 09:26:14 1996  Tom Tromey  <tromey@cygnus.com>
+
+       * gdbtk.c (gdbtk_readline): Fix memory leak.
+
 Mon Nov 18 23:43:05 1996  Tom Tromey  <tromey@cygnus.com>
 
        Fixes for Tcl 7.6 / Tk 4.2:

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index d90dfc0..6d569f5 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -253,11 +253,14 @@ gdbtk_readline (prompt)
 {
   char *merge[2];
   char *command;
+  int result;
 
   merge[0] = "gdbtk_tcl_readline";
   merge[1] = prompt;
   command = Tcl_Merge (2, merge);
-  if (Tcl_Eval (interp, command) == TCL_OK)
+  result = Tcl_Eval (interp, command);
+  free (command);
+  if (result == TCL_OK)
     {
       return (strdup (interp -> result));
     }