Tcl Source Code

Artifact [65b00ba25f]
Login

Artifact 65b00ba25ff2c21ac14cca91b4af1cc9a54015e9:

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.