Attachment "947564.patch" to
ticket [947564ffff]
added by
dgp
2004-05-04 22:42:05.
Index: generic/tclAlloc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclAlloc.c,v
retrieving revision 1.19
diff -u -r1.19 tclAlloc.c
--- generic/tclAlloc.c 6 Apr 2004 22:25:48 -0000 1.19
+++ generic/tclAlloc.c 4 May 2004 15:31:32 -0000
@@ -23,9 +23,8 @@
* that has significantly reduced lock contention.
*/
-#if !defined(TCL_THREADS) || !defined(USE_THREAD_ALLOC)
-
#include "tclInt.h"
+#if !defined(TCL_THREADS) || !defined(USE_THREAD_ALLOC)
#if USE_TCLALLOC
Index: generic/tclInt.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.h,v
retrieving revision 1.156
diff -u -r1.156 tclInt.h
--- generic/tclInt.h 3 May 2004 19:59:18 -0000 1.156
+++ generic/tclInt.h 4 May 2004 15:31:33 -0000
@@ -2169,6 +2169,8 @@
# define TclNewListObjDirect(objc, objv) \
TclDbNewListObjDirect(objc, objv, __FILE__, __LINE__)
+#undef USE_THREAD_ALLOC
+
#elif defined(PURIFY)
/*
Index: generic/tclThreadAlloc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclThreadAlloc.c,v
retrieving revision 1.11
diff -u -r1.11 tclThreadAlloc.c
--- generic/tclThreadAlloc.c 30 Apr 2004 20:06:44 -0000 1.11
+++ generic/tclThreadAlloc.c 4 May 2004 15:31:33 -0000
@@ -14,9 +14,8 @@
* RCS: @(#) $Id: tclThreadAlloc.c,v 1.11 2004/04/30 20:06:44 dgp Exp $
*/
-#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC)
-
#include "tclInt.h"
+#if defined(TCL_THREADS) && defined(USE_THREAD_ALLOC)
/*
* If range checking is enabled, an additional byte will be allocated