From: Tom Tromey <tromey@redhat.com>
Date: Tue, 19 Nov 1996 16:38:48 +0000 (+0000)
Subject: 	* gdbtk.c (gdbtk_readline): Fix memory leak.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bd45f82f415de7b2b37eea385d0c215e8e5abd84;p=binutils-gdb.git

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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 27e172b843f..5cd75e78fd8 100644
--- 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 d90dfc011c3..6d569f5d92b 100644
--- 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));
     }