summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
authorstanton <stanton>1999-04-28 17:06:06 (GMT)
committerstanton <stanton>1999-04-28 17:06:06 (GMT)
commita12837eeef8ecf52959c787988f8a45eb8baf704 (patch)
tree856e7536adf9af9ca2fbd629f5843a04f50f9e00 /mac
parent5bec7274093b637944fb3f2d53d71901734f877f (diff)
downloadtcl-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.c5
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);
}
/*