2002-11-11 Martin M. Hunt <hunt@redhat.com>

	* library/data.ith: Deleted.
	* library/data.itb: Deleted.

3 files changed, 9 insertions, 90 deletions

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index c764eec897a..5291a287234 100644
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,14 @@
 2002-11-11  Martin M. Hunt  <hunt@redhat.com>	
 
+	* library/data.ith: Deleted.
+	* library/data.itb: Deleted.
+	
+2002-11-11  Martin M. Hunt  <hunt@redhat.com>		
+
+	* library/memwin.itb: Supply arg to _update_address.
+
+2002-11-11  Martin M. Hunt  <hunt@redhat.com>	
+	
 	* library/toolbar.tcl: Deleted this obsolete file.
 	* library/tclIndex: Rebuilt.
 
diff --git a/gdb/gdbtk/library/data.itb b/gdb/gdbtk/library/data.itb
deleted file mode 100644
index 5cfc36b3faa..00000000000
--- a/gdb/gdbtk/library/data.itb
+++ /dev/null
@@ -1,48 +0,0 @@
-# Data-type class implementations for GDBtk.
-# Copyright 1997, 1998, 1999 Cygnus Solutions
-#
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License (GPL) as published by
-# the Free Software Foundation; either version 2 of the License, or (at
-# your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-
-# ------------------------------------------------------------------
-#                             Stack
-# ------------------------------------------------------------------
-itcl::body Stack::constructor {} {
-  set _stack {}
-}
-
-itcl::body Stack::push {args} {
-  set _stack [concat $_stack $args]
-}
-
-itcl::body Stack::destructor {} {
-}
-
-itcl::body Stack::pop {} {
-  set thing [lindex $_stack end]
-  set _stack [lreplace $_stack end end]
-  return $thing
-}
-
-# ------------------------------------------------------------------
-#                             Queue
-# ------------------------------------------------------------------
-itcl::body Queue::constructor {} {
-}
-
-itcl::body Queue::destructor {} {
-}
-
-itcl::body Queue::pop {} {
-  set thing [lindex $_stack 0]
-  set _stack [lreplace $_stack 0 0]
-  return $thing
-}
-
diff --git a/gdb/gdbtk/library/data.ith b/gdb/gdbtk/library/data.ith
deleted file mode 100644
index 4b219e427a6..00000000000
--- a/gdb/gdbtk/library/data.ith
+++ /dev/null
@@ -1,42 +0,0 @@
-# Data-type class definitions for GDBtk.
-# Copyright 1997, 1998, 1999 Cygnus Solutions
-#
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License (GPL) as published by
-# the Free Software Foundation; either version 2 of the License, or (at
-# your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-
-# Generic Stack
-itcl::class Stack {
-
-  public {
-    method constructor {}
-    method destructor {}
-
-    # Pop the stack. Empty string means empty stack.
-    method pop {}
-
-    # Push ARGS onto the stack.
-    method push {args}
-  }
-
-  protected variable _stack
-}
-
-# Generic Queue
-itcl::class Queue {
-  inherit Stack
-
-  public {
-    method constructor {}
-    method destructor {}
-
-    # Pop the queue. Empty string means empty queue.
-    method pop {}
-  }
-}