* generic/tclIO.c: added (on behalf of Kevin Kenny

	  <kennykb@users.sourceforge.net>) two more '(ClientData)' casts
	  on calls to Tcl_Preserve and Tcl_Release -- ones that Vince
	  apparently missed.

2 files changed, 10 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index 9ae9729..14ddf05 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2001-09-28  Andreas Kupries  <andreas_kupries@users.sourceforge.net> 
+
+	* generic/tclIO.c: added (on behalf of Kevin Kenny
+	  <kennykb@users.sourceforge.net>) two more '(ClientData)' casts
+	  on calls to Tcl_Preserve and Tcl_Release -- ones that Vince
+	  apparently missed.
+	
 2001-09-27  Don Porter  <dgp@users.sourceforge.net>
 
         * generic/tclIO.c (ChannelTimerProc):  Added Tcl_Preserve()
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 5b00c3d..b9d942d 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIO.c,v 1.20.2.10 2001/09/28 02:26:35 dgp Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.20.2.11 2001/09/28 16:30:12 andreas_kupries Exp $
  */
 
 #include "tclInt.h"
@@ -6311,11 +6311,11 @@ ChannelTimerProc(clientData)
 	    (Tcl_ChannelBlockModeProc(chanPtr->typePtr) == NULL)) {
 	    statePtr->flags |= CHANNEL_TIMER_FEV;
 	}
-	Tcl_Preserve(statePtr);
+	Tcl_Preserve((ClientData) statePtr);
 	Tcl_NotifyChannel((Tcl_Channel)chanPtr, TCL_READABLE);
 
 	statePtr->flags &= ~CHANNEL_TIMER_FEV; 
-	Tcl_Release(statePtr);
+	Tcl_Release((ClientData) statePtr);
     } else {
 	statePtr->timer = NULL;
 	UpdateInterest(chanPtr);