Attachment "None" to
ticket [403532ffff]
added by
dgp
2001-02-01 06:18:45.
? load.patch
? solaris
? memexit.patch
? unix/httpd
Index: generic/tclCkalloc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCkalloc.c,v
retrieving revision 1.10
diff -u -r1.10 tclCkalloc.c
--- generic/tclCkalloc.c 2000/12/08 04:22:43 1.10
+++ generic/tclCkalloc.c 2001/01/31 23:17:38
@@ -1219,6 +1219,7 @@
}
if (curTagPtr != NULL) {
TclpFree((char *) curTagPtr);
+ curTagPtr = NULL;
}
allocHead = NULL;
Tcl_MutexUnlock(ckallocMutexPtr);
Index: generic/tclEvent.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEvent.c,v
retrieving revision 1.10
diff -u -r1.10 tclEvent.c
--- generic/tclEvent.c 2000/11/02 23:34:34 1.10
+++ generic/tclEvent.c 2001/01/31 23:17:39
@@ -766,9 +766,10 @@
ThreadSpecificData *tsdPtr;
TclpInitLock();
- tsdPtr = TCL_TSD_INIT(&dataKey);
if (subsystemsInitialized != 0) {
subsystemsInitialized = 0;
+
+ tsdPtr = TCL_TSD_INIT(&dataKey);
/*
* Invoke exit handlers first.