Artifact
f8e97b43d1a02c6c54ad55956a85b6391ae2a9a6:
Attachment "tclEvent.patch" to
ticket [419449ffff]
added by
vincentdarley
2001-09-10 23:39:36.
Index: tclEvent.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEvent.c,v
retrieving revision 1.12
diff -u -r1.12 tclEvent.c
--- tclEvent.c 2001/08/30 07:50:18 1.12
+++ tclEvent.c 2001/09/10 16:38:59
@@ -936,8 +936,12 @@
int
TclInExit()
{
- ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
- return tsdPtr->inExit;
+ ThreadSpecificData *tsdPtr = TclThreadDataKeyGet(&dataKey);
+ if (tsdPtr == NULL) {
+ return inFinalize;
+ } else {
+ return tsdPtr->inExit;
+ }
}
/*
