From: Martin Hunt <hunt@redhat.com>
Date: Fri, 5 Jun 1998 01:29:10 +0000 (+0000)
Subject: Thu Jun  4 18:31:53 1998  Martin M. Hunt  <hunt@cygnus.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=94a6f14fa4b66a7f3d9b893b321a5f7751decc23;p=binutils-gdb.git

Thu Jun  4 18:31:53 1998  Martin M. Hunt  <hunt@cygnus.com>

	* gdbtk.c (gdbtk_init): Initialize tkTable.
---

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index fbc69f62cdb..5372df0ea49 100644
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,7 @@
+Thu Jun  4 18:31:53 1998  Martin M. Hunt  <hunt@cygnus.com>
+
+	* gdbtk.c (gdbtk_init): Initialize tkTable.
+
 Thu Jun  4 10:15:03 1998  Elena Zannoni  <ezannoni@kwikemart.cygnus.com>
 
 	* gdbtk.c: merged:
diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index e99f3390c82..21222fe6086 100644
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -82,6 +82,8 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 #undef SIOCSPGRP
 #endif
 
+extern int Tktable_Init PARAMS ((Tcl_Interp *interp)); 
+
 static int No_Update = 0;
 static int load_in_progress = 0;
 static int in_fputs = 0;
@@ -2244,6 +2246,11 @@ gdbtk_init ( argv0 )
   if (Tix_Init(interp) != TCL_OK)
     error ("Tix_Init failed: %s", interp->result);
 
+  if (Tktable_Init(interp) != TCL_OK)
+    error ("Tktable_Init failed: %s", interp->result);
+  Tcl_StaticPackage(interp, "Tktable", Tktable_Init,
+		    (Tcl_PackageInitProc *) NULL);  
+  
 #ifdef __CYGWIN32__
   if (ide_create_messagebox_command (interp) != TCL_OK)
     error ("messagebox command initialization failed");