diff options
| author | Tom Tromey <tromey@redhat.com> | 1996-11-19 16:38:48 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 1996-11-19 16:38:48 +0000 |
| commit | bd45f82f415de7b2b37eea385d0c215e8e5abd84 (patch) | |
| tree | cc291e46317eca945f3593dad1495e343159db23 /gdb/gdbtk.c | |
| parent | a5a6e3bd0a4e85c405a31aba675b3a657f299590 (diff) | |
| download | gdb-bd45f82f415de7b2b37eea385d0c215e8e5abd84.zip gdb-bd45f82f415de7b2b37eea385d0c215e8e5abd84.tar.gz gdb-bd45f82f415de7b2b37eea385d0c215e8e5abd84.tar.bz2 | |
* gdbtk.c (gdbtk_readline): Fix memory leak.
Diffstat (limited to 'gdb/gdbtk.c')
| -rw-r--r-- | gdb/gdbtk.c | 5 |
1 files changed, 4 insertions, 1 deletions
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)); } |