mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2025-01-31 14:04:12 +00:00
* gdbtk.c (gdbtk_readline): Fix memory leak.
This commit is contained in:
parent
a5a6e3bd0a
commit
bd45f82f41
@ -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:
|
||||
|
@ -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));
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user