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 | a3271d4360790d34a08896e46f0a6a37aa344568 (patch) | |
| tree | 1745e8e5096f20504655ab8f994412fe58f8eb56 /generic/tclBasic.c | |
| parent | 0f3bab8aece13cfd66cca4d2e16489faaf69457b (diff) | |
| download | tcl-a3271d4360790d34a08896e46f0a6a37aa344568.zip tcl-a3271d4360790d34a08896e46f0a6a37aa344568.tar.gz tcl-a3271d4360790d34a08896e46f0a6a37aa344568.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; } |