From: Stu Grossman Date: Tue, 20 Jun 1995 17:41:11 +0000 (+0000) Subject: * gdbtk.c: Add functions Tcl_Malloc, Tcl_Realloc, and Tcl_Free. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8c19daa1e511e29e51a8a9adb7e774452277fbc6;p=binutils-gdb.git * gdbtk.c: Add functions Tcl_Malloc, Tcl_Realloc, and Tcl_Free. --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 802fa7099e0..83e8dffa022 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,7 @@ Tue Jun 20 10:19:40 1995 Stu Grossman (grossman@cygnus.com) + * gdbtk.c: Add functions Tcl_Malloc, Tcl_Realloc, and Tcl_Free. + * gdbtk.tcl (add_breakpoint_frame): Add more fields. * (create_file_win create_asm_win build_framework): Create null bindings for meta keys to keep window from dropping down to diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index 9a8d0b3d874..87b9e33f135 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -68,6 +68,30 @@ static int x_fd; /* X network socket */ static int disassemble_from_exec = -1; +/* Supply malloc calls for tcl/tk. */ + +char * +Tcl_Malloc (size) + unsigned int size; +{ + return xmalloc (size); +} + +char * +Tcl_Realloc (ptr, size) + char *ptr; + unsigned int size; +{ + return xrealloc (ptr, size); +} + +void +Tcl_Free(ptr) + char *ptr; +{ + free (ptr); +} + static void null_routine(arg) int arg;