From 6815029e55cbb1f53e50d279923c2cf0218b42d2 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 2 Jul 2007 19:18:10 +0000
Subject:         * generic/tclIO.c:      Removed dead code.         *
 unix/tclUnixChan.c:

---
 ChangeLog          |  3 +++
 generic/tclIO.c    | 10 +------
 unix/tclUnixChan.c | 76 +-----------------------------------------------------
 3 files changed, 5 insertions(+), 84 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6db64a4..bdd0b4c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2007-07-02  Don Porter  <dgp@users.sourceforge.net>
 
+	* generic/tclIO.c:	Removed dead code.
+	* unix/tclUnixChan.c:
+
 	* generic/tclCompExpr.c:	Removed dead code, old implementations
 	* generic/tclEvent.c:	of expr parsing and compiling, including the
 	* generic/tclInt.h:	routine TclFinalizeCompilation().
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 534556d..4e1c56b 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.121 2007/05/04 14:59:06 kennykb Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.122 2007/07/02 19:18:10 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -34,14 +34,6 @@ typedef struct ThreadSpecificData {
 				 * indexed by ChannelState, as only one
 				 * ChannelState exists per set of stacked
 				 * channels. */
-#ifdef oldcode
-    int channelExitHandlerCreated;
-				/* Has a channel exit handler been created
-				 * yet? */
-    int channelEventSourceCreated;
-				/* Has the channel event source been created
-				 * and registered with the notifier? */
-#endif
     Tcl_Channel stdinChannel;	/* Static variable for the stdin channel. */
     int stdinInitialized;
     Tcl_Channel stdoutChannel;	/* Static variable for the stdout channel. */
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index 904a991..1bd8099 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.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: tclUnixChan.c,v 1.77 2007/04/20 06:11:00 kennykb Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.78 2007/07/02 19:18:11 dgp Exp $
  */
 
 #include "tclInt.h"	/* Internal definitions for Tcl. */
@@ -240,10 +240,6 @@ static int		FileOutputProc(ClientData instanceData,
 			    const char *buf, int toWrite, int *errorCode);
 static int		FileSeekProc(ClientData instanceData,
 			    long offset, int mode, int *errorCode);
-#ifdef DEPRECATED
-static void		FileThreadActionProc(ClientData instanceData,
-			    int action);
-#endif
 static int		FileTruncateProc(ClientData instanceData,
 			    Tcl_WideInt length);
 static Tcl_WideInt	FileWideSeekProc(ClientData instanceData,
@@ -312,11 +308,7 @@ static Tcl_ChannelType fileChannelType = {
     NULL,			/* flush proc. */
     NULL,			/* handler proc. */
     FileWideSeekProc,		/* wide seek proc. */
-#ifdef DEPRECATED
-    FileThreadActionProc,	/* thread actions */
-#else
     NULL,
-#endif
     FileTruncateProc,		/* truncate proc. */
 };
 
@@ -1839,18 +1831,6 @@ TclpOpenFileChannel(
 	fsPtr = (FileState *) ckalloc((unsigned) sizeof(FileState));
     }
 
-#ifdef DEPRECATED
-    if (channelTypePtr == &fileChannelType) {
-	/*
-	 * TIP #218. Removed the code inserting the new structure into the
-	 * global list. This is now handled in the thread action callbacks,
-	 * and only there.
-	 */
-
-	fsPtr->nextPtr = NULL;
-    }
-#endif /* DEPRECATED */
-
     fsPtr->validMask = channelPermissions | TCL_EXCEPTION;
     fsPtr->fd = fd;
 
@@ -3273,60 +3253,6 @@ TclUnixWaitForFile(
     return result;
 }
 
-#ifdef DEPRECATED
-/*
- *----------------------------------------------------------------------
- *
- * FileThreadActionProc --
- *
- *	Insert or remove any thread local refs to this channel.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	None. This is a no-op under unix.
- *
- *----------------------------------------------------------------------
- */
-
-static void
-FileThreadActionProc(
-    ClientData instanceData,
-    int action)
-{
-    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
-    FileState *fsPtr = (FileState *) instanceData;
-
-    if (action == TCL_CHANNEL_THREAD_INSERT) {
-	fsPtr->nextPtr = tsdPtr->firstFilePtr;
-	tsdPtr->firstFilePtr = fsPtr;
-    } else {
-	FileState **nextPtrPtr;
-	int removed = 0;
-
-	for (nextPtrPtr = &(tsdPtr->firstFilePtr); (*nextPtrPtr) != NULL;
-		nextPtrPtr = &((*nextPtrPtr)->nextPtr)) {
-	    if ((*nextPtrPtr) == fsPtr) {
-		(*nextPtrPtr) = fsPtr->nextPtr;
-		removed = 1;
-		break;
-	    }
-	}
-
-	/*
-	 * This could happen if the channel was created in one thread and then
-	 * moved to another without updating the thread local data in each
-	 * thread.
-	 */
-
-	if (!removed) {
-	    Tcl_Panic("file info ptr not on thread channel list");
-	}
-    }
-}
-#endif /* DEPRECATED */
-
 /*
  *----------------------------------------------------------------------
  *
-- 
cgit v0.12