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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 27e172b843fa6e9c9b16cbaa8907c1934791b18f..5cd75e78fd8cf4f170168ceb666c34c530610b8b 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 d90dfc011c3c65b18c778944a72d27e7bbfe992e..6d569f5d92bc76a7d4002ea24bc3efadc0e05520 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));
     }