From 44aa000539d0865e99c9bc3f4d4c2984d1eeb876 Mon Sep 17 00:00:00 2001
From: bch <brad.harder@gmail.com>
Date: Thu, 19 Feb 2015 19:16:37 +0000
Subject: backout backwards-incompatible experiment that was accidentally
 committed

---
 generic/tclIORChan.c | 30 +-----------------------------
 1 file changed, 1 insertion(+), 29 deletions(-)

diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c
index 0f7f021..21c766e 100644
--- a/generic/tclIORChan.c
+++ b/generic/tclIORChan.c
@@ -30,8 +30,6 @@
 /*
  * Signatures of all functions used in the C layer of the reflection.
  */
-static int		ReflectGetHandle( ClientData instanceData,
-			int direction, ClientData *handlePtr);
 
 static int		ReflectClose(ClientData clientData,
 			    Tcl_Interp *interp);
@@ -70,7 +68,7 @@ static const Tcl_ChannelType tclRChannelType = {
     ReflectSetOption,	   /* Set options.			NULL'able */
     ReflectGetOption,	   /* Get options.			NULL'able */
     ReflectWatch,	   /* Initialize notifier			  */
-    ReflectGetHandle,	   /* Get OS handle from the channel.		  */
+    NULL,		   /* Get OS handle from the channel.	NULL'able */
     NULL,		   /* No close2 support.		NULL'able */
     ReflectBlock,	   /* Set blocking/nonblocking.		NULL'able */
     NULL,		   /* Flush channel. Not used by core.	NULL'able */
@@ -1646,32 +1644,6 @@ ReflectWatch(
 /*
  *----------------------------------------------------------------------
  *
- * ReflectGetHandle --
- *
- *	This function is invoked to return OS channel handles, or EINVAL
- *	if not applicable or otherwise invalid.
- *
- * Results:
- *	EINVAL.
- *
- * Side effects:
- *	None.
- *
- *----------------------------------------------------------------------
- */
-
-int
-ReflectGetHandle(
-    ClientData instanceData,
-    int direction,
-    ClientData *handlePtr)
-{
-  return EINVAL;
-}
-
-/*
- *----------------------------------------------------------------------
- *
  * ReflectBlock --
  *
  *	This function is invoked to tell the channel which blocking behaviour
-- 
cgit v0.12