diff options
| author | stanton <stanton> | 1999-04-28 17:06:06 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-28 17:06:06 (GMT) |
| commit | a12837eeef8ecf52959c787988f8a45eb8baf704 (patch) | |
| tree | 856e7536adf9af9ca2fbd629f5843a04f50f9e00 /generic/tclListObj.c | |
| parent | 5bec7274093b637944fb3f2d53d71901734f877f (diff) | |
| download | tcl-a12837eeef8ecf52959c787988f8a45eb8baf704.zip tcl-a12837eeef8ecf52959c787988f8a45eb8baf704.tar.gz tcl-a12837eeef8ecf52959c787988f8a45eb8baf704.tar.bz2 | |
* mac/tclMacResource.c:
* generic/tclListObj.c:
* generic/tclObj.c:
* generic/tclStringObj.c: Changed to avoid freeing the string
representation before freeing the internal rep. This helps with
debugging since the string rep will still be valid when the free
proc is invoked.
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index aceaa7a..d4b3aba 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclListObj.c,v 1.4 1999/04/16 00:46:50 stanton Exp $ + * RCS: @(#) $Id: tclListObj.c,v 1.5 1999/04/28 17:06:06 stanton Exp $ */ #include "tclInt.h" @@ -236,11 +236,11 @@ Tcl_SetListObj(objPtr, objc, objv) * Free any old string rep and any internal rep for the old type. */ - Tcl_InvalidateStringRep(objPtr); if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) { oldTypePtr->freeIntRepProc(objPtr); } objPtr->typePtr = NULL; + Tcl_InvalidateStringRep(objPtr); /* * Set the object's type to "list" and initialize the internal rep. |