diff options
author | andreas_kupries <andreas_kupries@noemail.net> | 2004-10-28 21:12:33 (GMT) |
---|---|---|
committer | andreas_kupries <andreas_kupries@noemail.net> | 2004-10-28 21:12:33 (GMT) |
commit | b821f56b1a57a1f1833d6ce92f2c0b6aa4492939 (patch) | |
tree | 3d9bf2760c3cffdf34ac6a2a610549f83ba708e3 /win | |
parent | efe11ae5d7d935d137bed572ba09b6aa396d3b2c (diff) | |
download | tcl-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')
-rw-r--r-- | win/tclWinThrd.c | 7 |
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; |