From 8c19daa1e511e29e51a8a9adb7e774452277fbc6 Mon Sep 17 00:00:00 2001
From: Stu Grossman <grossman@cygnus>
Date: Tue, 20 Jun 1995 17:41:11 +0000
Subject: [PATCH] 	* gdbtk.c:  Add functions Tcl_Malloc, Tcl_Realloc, and
 Tcl_Free.

---
 gdb/ChangeLog |  2 ++
 gdb/gdbtk.c   | 24 ++++++++++++++++++++++++
 2 files changed, 26 insertions(+)

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;
-- 
2.30.2