From bd45f82f415de7b2b37eea385d0c215e8e5abd84 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Tue, 19 Nov 1996 16:38:48 +0000 Subject: [PATCH] * gdbtk.c (gdbtk_readline): Fix memory leak. --- gdb/ChangeLog | 4 ++++ gdb/gdbtk.c | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 27e172b..5cd75e7 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,4 +1,8 @@ start-sanitize-gdbtk +Tue Nov 19 09:26:14 1996 Tom Tromey + + * gdbtk.c (gdbtk_readline): Fix memory leak. + Mon Nov 18 23:43:05 1996 Tom Tromey Fixes for Tcl 7.6 / Tk 4.2: diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index d90dfc0..6d569f5 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)); } -- 2.7.4