diff options
| author | dgp <dgp@noemail.net> | 2011-04-27 18:32:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2011-04-27 18:32:14 (GMT) |
| commit | d29a707926464a9bb54a4bf80bf81c4e9e75b5b2 (patch) | |
| tree | d9ac97eac3ae2c7f2ffe55c456dff83270d6e1e1 /generic/tclListObj.c | |
| parent | 703719c9b3a0c57b9a4b38f38af6ac1afc41a49c (diff) | |
| download | tcl-d29a707926464a9bb54a4bf80bf81c4e9e75b5b2.zip tcl-d29a707926464a9bb54a4bf80bf81c4e9e75b5b2.tar.gz tcl-d29a707926464a9bb54a4bf80bf81c4e9e75b5b2.tar.bz2 | |
FreeListInternalRep() cleanup.
FossilOrigin-Name: 403736bc07e572e188525e52d28de0bb62674fc0
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 036d624..3b9dce6 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -1623,16 +1623,14 @@ static void FreeListInternalRep( Tcl_Obj *listPtr) /* List object with internal rep to free. */ { - register List *listRepPtr = ListRepPtr(listPtr); - register Tcl_Obj **elemPtrs = &listRepPtr->elements; - register Tcl_Obj *objPtr; - int numElems = listRepPtr->elemCount; - int i; + List *listRepPtr = ListRepPtr(listPtr); if (--listRepPtr->refCount <= 0) { + Tcl_Obj **elemPtrs = &listRepPtr->elements; + int i, numElems = listRepPtr->elemCount; + for (i = 0; i < numElems; i++) { - objPtr = elemPtrs[i]; - Tcl_DecrRefCount(objPtr); + Tcl_DecrRefCount(elemPtrs[i]); } ckfree((char *) listRepPtr); } |