diff options
| author | dkf <dkf@noemail.net> | 2010-03-05 14:34:02 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2010-03-05 14:34:02 (GMT) |
| commit | 0beea22f470575ca4033d1d218b40cac85372822 (patch) | |
| tree | f2dc6d4861ea238a538f41c4306249dad1ac3ea5 /generic/tclDictObj.c | |
| parent | 5ba7e23db54042b3bb546b0d227da32adcde8a1a (diff) | |
| download | tcl-0beea22f470575ca4033d1d218b40cac85372822.zip tcl-0beea22f470575ca4033d1d218b40cac85372822.tar.gz tcl-0beea22f470575ca4033d1d218b40cac85372822.tar.bz2 | |
Code Audit results:
* use do { ... } while (0) in macros
* avoid shadowing one local variable with another
* use clearer 'foo.bar++;' instead of '++foo.bar;' where result not
required (i.e., semantically equivalent)
* follow Engineering Manual rules on spacing and declarations
FossilOrigin-Name: 4d8a4f639d28df5b5dfabd407be8efbb44454601
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index 2751b4a..e0aea5b 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDictObj.c,v 1.81 2010/02/24 14:30:34 dkf Exp $ + * RCS: @(#) $Id: tclDictObj.c,v 1.82 2010/03/05 14:34:04 dkf Exp $ */ #include "tclInt.h" @@ -405,7 +405,7 @@ FreeDictInternalRep( { Dict *dict = dictPtr->internalRep.otherValuePtr; - --dict->refcount; + dict->refcount--; if (dict->refcount <= 0) { DeleteDict(dict); } |