diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-21 10:15:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-21 10:15:24 (GMT) |
| commit | 990d6fd6f1821960103d83cda547ef9a8c2199b8 (patch) | |
| tree | 1745e8e5096f20504655ab8f994412fe58f8eb56 /generic/tclBasic.c | |
| parent | da608f8c614749af16e02de19741cada608d3215 (diff) | |
| download | tcl-990d6fd6f1821960103d83cda547ef9a8c2199b8.zip tcl-990d6fd6f1821960103d83cda547ef9a8c2199b8.tar.gz tcl-990d6fd6f1821960103d83cda547ef9a8c2199b8.tar.bz2 | |
More internal use of size_t in stead of int.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 39f2dd4..8eebab1 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3400,8 +3400,7 @@ TclCleanupCommand( register Command *cmdPtr) /* Points to the Command structure to * be freed. */ { - cmdPtr->refCount--; - if (cmdPtr->refCount <= 0) { + if (cmdPtr->refCount-- <= 1) { ckfree(cmdPtr); } } @@ -5578,8 +5577,7 @@ TclArgumentRelease( } cfwPtr = Tcl_GetHashValue(hPtr); - cfwPtr->refCount--; - if (cfwPtr->refCount > 0) { + if (cfwPtr->refCount-- > 1) { continue; } |