diff options
| author | mdejong <mdejong> | 2003-07-24 18:16:30 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2003-07-24 18:16:30 (GMT) |
| commit | 36f1698a072c40091f4452ae29366b10cc4be03c (patch) | |
| tree | 420611bcf77c01f467cd63a0bb099405c28b3cdb /generic/tclInt.h | |
| parent | db3db9df91cdc7d1b0bdac6c9c927765ce9afd95 (diff) | |
| download | tcl-36f1698a072c40091f4452ae29366b10cc4be03c.zip tcl-36f1698a072c40091f4452ae29366b10cc4be03c.tar.gz tcl-36f1698a072c40091f4452ae29366b10cc4be03c.tar.bz2 | |
* generic/tcl.h: Revert change made on 2003-07-21
since it made the sizeof(Tcl_Obj) different for
regular vs mem debug builds.
* generic/tclInt.h: Define TclDecrRefCount in terms
of Tcl_DbDecrRefCount which removes one layer of
inderection.
* generic/tclObj.c (TclDbInitNewObj, Tcl_DbIncrRefCount,
Tcl_DbDecrRefCount, Tcl_DbIsShared):
Define ThreadSpecificData that contains a hashtable.
The table is used to ensure that a Tcl_Obj is only
acted upon in the thread that allocated it. This
checking code is enabled only when mem debug and
threads are enabled.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 040e359..e25d632 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.129 2003/07/22 00:59:58 mdejong Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.130 2003/07/24 18:16:30 mdejong Exp $ */ #ifndef _TCLINT @@ -2123,7 +2123,7 @@ EXTERN void TclDbInitNewObj _ANSI_ARGS_((Tcl_Obj *objPtr)); TclDbNewObj(objPtr, __FILE__, __LINE__); # define TclDecrRefCount(objPtr) \ - Tcl_DecrRefCount(objPtr); + Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) #elif defined(PURIFY) |