summaryrefslogtreecommitdiffstats
path: root/win/tclWinThrd.c
diff options
context:
space:
mode:
authorandreas_kupries <andreas_kupries@noemail.net>2004-10-28 21:12:33 (GMT)
committerandreas_kupries <andreas_kupries@noemail.net>2004-10-28 21:12:33 (GMT)
commitb821f56b1a57a1f1833d6ce92f2c0b6aa4492939 (patch)
tree3d9bf2760c3cffdf34ac6a2a610549f83ba708e3 /win/tclWinThrd.c
parentefe11ae5d7d935d137bed572ba09b6aa396d3b2c (diff)
downloadtcl-b821f56b1a57a1f1833d6ce92f2c0b6aa4492939.zip
tcl-b821f56b1a57a1f1833d6ce92f2c0b6aa4492939.tar.gz
tcl-b821f56b1a57a1f1833d6ce92f2c0b6aa4492939.tar.bz2
* generic/tclAlloc.c: Fixed [Tcl SF Bug 1030548], a
* generic/tclThreadAlloc.c: threaded debug build on Windows * win/tclWinThrd.c: now works again. Had to touch Unix * unix/tclUnixThrd.c: as well. Basic patch by Kevin, with modifications by myself. FossilOrigin-Name: 6d824cc2bb98c687e15eef8e0ad84083de754ecf
Diffstat (limited to 'win/tclWinThrd.c')
-rw-r--r--win/tclWinThrd.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c
index c99f27b..05a321b 100644
--- a/win/tclWinThrd.c
+++ b/win/tclWinThrd.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinThrd.c,v 1.24.2.8 2004/07/21 01:30:58 hobbs Exp $
+ * RCS: @(#) $Id: tclWinThrd.c,v 1.24.2.9 2004/10/28 21:12:38 andreas_kupries Exp $
*/
#include "tclWinInt.h"
@@ -680,7 +680,7 @@ TclpFinalizeThreadData(keyPtr)
DWORD *indexPtr;
BOOL success;
-#ifdef USE_THREAD_ALLOC
+#if defined(USE_THREAD_ALLOC) && !defined(TCL_MEM_DEBUG)
TclWinFreeAllocCache();
#endif
if (*keyPtr != NULL) {
@@ -1037,7 +1037,8 @@ TclpFinalizeCondition(condPtr)
/*
* Additions by AOL for specialized thread memory allocator.
*/
-#ifdef USE_THREAD_ALLOC
+
+#if defined(USE_THREAD_ALLOC) && !defined(TCL_MEM_DEBUG)
static int once;
static DWORD key;