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 /mac | |
| 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 'mac')
| -rw-r--r-- | mac/tclMacResource.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mac/tclMacResource.c b/mac/tclMacResource.c index 312ef42..0c1a372 100644 --- a/mac/tclMacResource.c +++ b/mac/tclMacResource.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacResource.c,v 1.5 1999/04/16 00:47:21 stanton Exp $ + * RCS: @(#) $Id: tclMacResource.c,v 1.6 1999/04/28 17:06:07 stanton Exp $ */ #include <Errors.h> @@ -1589,13 +1589,14 @@ Tcl_SetOSTypeObj( Tcl_RegisterObjType(&osType); } - Tcl_InvalidateStringRep(objPtr); if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) { oldTypePtr->freeIntRepProc(objPtr); } objPtr->internalRep.longValue = newOSType; objPtr->typePtr = &osType; + + Tcl_InvalidateStringRep(objPtr); } /* |