summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvasiljevic <zv@archiware.com>2004-07-15 09:44:46 (GMT)
committervasiljevic <zv@archiware.com>2004-07-15 09:44:46 (GMT)
commit8a36ed289c13c73edabc2470a9f2f7026931bce1 (patch)
tree44c6ffc416204cfce4d1709e4960a0b8daeb310d
parent309e395545ab2d6714e92a25d0fe3211a36a8843 (diff)
downloadtcl-8a36ed289c13c73edabc2470a9f2f7026931bce1.zip
tcl-8a36ed289c13c73edabc2470a9f2f7026931bce1.tar.gz
tcl-8a36ed289c13c73edabc2470a9f2f7026931bce1.tar.bz2
Backout of changes to fix the Tcl Bug #770053.
See SF bugreport for more info.
-rw-r--r--generic/tclEvent.c14
1 files changed, 9 insertions, 5 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 69eac18..7ce54ef 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclEvent.c,v 1.39 2004/06/22 19:41:25 kennykb Exp $
+ * RCS: @(#) $Id: tclEvent.c,v 1.40 2004/07/15 09:44:46 vasiljevic Exp $
*/
#include "tclInt.h"
@@ -1252,15 +1252,19 @@ NewThreadProc(ClientData clientData)
ThreadClientData *cdPtr;
ClientData threadClientData;
Tcl_ThreadCreateProc *threadProc;
+ ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
- TCL_TSD_INIT(&dataKey);
-
- cdPtr = (ThreadClientData*)clientData;
+ cdPtr = (ThreadClientData *)clientData;
threadProc = cdPtr->proc;
threadClientData = cdPtr->clientData;
Tcl_Free((char*)clientData); /* Allocated in Tcl_CreateThread() */
- TclInitNotifier();
+ /*
+ * Please see the SF Bug #770053 comments to find out why
+ * this one below is commented out.
+ */
+
+ /* TclInitNotifier(); */
(*threadProc)(threadClientData);