diff options
| author | vasiljevic <zv@archiware.com> | 2004-07-15 09:44:46 (GMT) |
|---|---|---|
| committer | vasiljevic <zv@archiware.com> | 2004-07-15 09:44:46 (GMT) |
| commit | 8a36ed289c13c73edabc2470a9f2f7026931bce1 (patch) | |
| tree | 44c6ffc416204cfce4d1709e4960a0b8daeb310d /generic/tclEvent.c | |
| parent | 309e395545ab2d6714e92a25d0fe3211a36a8843 (diff) | |
| download | tcl-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.
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 14 |
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); |