diff options
author | dgp <dgp@users.sourceforge.net> | 2004-04-30 20:06:35 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2004-04-30 20:06:35 (GMT) |
commit | b35ec627d06b2a09c7691d6b36b2b5b4f11c455b (patch) | |
tree | ae2a40772b982fe11a4e2c70f86601c465020d24 | |
parent | 736312a51b0efbaf7f69c6b7b7c17a16bc6ab373 (diff) | |
download | tcl-b35ec627d06b2a09c7691d6b36b2b5b4f11c455b.zip tcl-b35ec627d06b2a09c7691d6b36b2b5b4f11c455b.tar.gz tcl-b35ec627d06b2a09c7691d6b36b2b5b4f11c455b.tar.bz2 |
* generic/tclInt.h: Replaced Kevin Kenny's temporary
* generic/tclThreadAlloc.c: fix for Bug 945447 with a cleaner,
more permanent replacement.
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | generic/tclInt.h | 5 | ||||
-rwxr-xr-x | generic/tclThreadAlloc.c | 10 |
3 files changed, 11 insertions, 10 deletions
@@ -1,3 +1,9 @@ +2004-04-30 Don Porter <dgp@users.sourceforge.net> + + * generic/tclInt.h: Replaced Kevin Kenny's temporary + * generic/tclThreadAlloc.c: fix for Bug 945447 with a cleaner, + more permanent replacement. + 2004-04-30 Kevin B. Kenny <kennykb@acm.org> * generic/tclThreadAlloc.c: Added a temporary (or so I hope!) diff --git a/generic/tclInt.h b/generic/tclInt.h index 1c7b74c..ff89229 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.154 2004/04/25 20:16:31 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.155 2004/04/30 20:06:43 dgp Exp $ */ #ifndef _TCLINT @@ -2175,6 +2175,9 @@ EXTERN void TclDbInitNewObj _ANSI_ARGS_((Tcl_Obj *objPtr)); EXTERN Tcl_Obj *TclThreadAllocObj _ANSI_ARGS_((void)); EXTERN void TclThreadFreeObj _ANSI_ARGS_((Tcl_Obj *)); +EXTERN Tcl_Mutex *TclpNewAllocMutex _ANSI_ARGS_((void)); +EXTERN void *TclpGetAllocCache _ANSI_ARGS_((void)); +EXTERN void TclpSetAllocCache _ANSI_ARGS_((void *)); # define TclAllocObjStorage(objPtr) \ (objPtr) = TclThreadAllocObj() diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index 4f8905f..70a7980 100755 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -11,21 +11,13 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclThreadAlloc.c,v 1.10 2004/04/30 17:45:31 kennykb Exp $ + * 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" -#ifdef WIN32 -#include "tclWinInt.h" -#else -extern Tcl_Mutex *TclpNewAllocMutex(void); -extern void *TclpGetAllocCache(void); -extern void TclpSetAllocCache(void *); -#endif - /* * If range checking is enabled, an additional byte will be allocated * to store the magic number at the end of the requested memory. |