diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-07-01 13:12:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-07-01 13:12:57 (GMT) |
| commit | 7ea47b984acc172d762d97583ad57afb44a7e450 (patch) | |
| tree | 9422a69eb8231a5b03115916dd4a3d8effb539a5 /generic/tclInt.h | |
| parent | 27ce2290a6e107aa7e2b8a5995fa32e32106546c (diff) | |
| download | tcl-7ea47b984acc172d762d97583ad57afb44a7e450.zip tcl-7ea47b984acc172d762d97583ad57afb44a7e450.tar.gz tcl-7ea47b984acc172d762d97583ad57afb44a7e450.tar.bz2 | |
Don't use internalRep.otherValuePtr any more, twoPtrValue.ptr1 is always a better idea.
A few more consistancies in refcount management.
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 2537ad8..356d250 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4039,7 +4039,7 @@ typedef const char *TclDTraceStr; */ # define TclDecrRefCount(objPtr) \ - if (--(objPtr)->refCount > 0) ; else { \ + if ((objPtr)->refCount-- > 1) ; else { \ if (!(objPtr)->typePtr || !(objPtr)->typePtr->freeIntRepProc) { \ TCL_DTRACE_OBJ_FREE(objPtr); \ if ((objPtr)->bytes \ @@ -4679,7 +4679,7 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; */ #define TclCleanupCommandMacro(cmdPtr) \ - if (--(cmdPtr)->refCount <= 0) { \ + if ((cmdPtr)->refCount-- <= 1) { \ ckfree((char *) (cmdPtr));\ } |