diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-12-13 16:11:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-12-13 16:11:07 (GMT) |
| commit | 990ca78bafc3a3a4363dbdaca20c2c3f78b8ee83 (patch) | |
| tree | 3419d8dcdc77bdae3be574f7f376d5dcf77dfb1d /generic/tcl.h | |
| parent | e30259f5920c3e4e6a6ff76d6c7d80bdbfd5ac32 (diff) | |
| download | tcl-990ca78bafc3a3a4363dbdaca20c2c3f78b8ee83.zip tcl-990ca78bafc3a3a4363dbdaca20c2c3f78b8ee83.tar.gz tcl-990ca78bafc3a3a4363dbdaca20c2c3f78b8ee83.tar.bz2 | |
Restore clarity to macro test.
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index bf9b446..9dd6ff0 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -833,7 +833,7 @@ int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); # define Tcl_DecrRefCount(objPtr) \ do { \ Tcl_Obj *_objPtr = (objPtr); \ - if (_objPtr->refCount-- < 2) { \ + if (--(_objPtr)->refCount <= 0) { \ TclFreeObj(_objPtr); \ } \ } while(0) |