diff options
| author | dgp <dgp@noemail.net> | 2011-04-27 18:23:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2011-04-27 18:23:39 (GMT) |
| commit | 703719c9b3a0c57b9a4b38f38af6ac1afc41a49c (patch) | |
| tree | 49158d5108ad115f779f031e7d855af9adbb7319 /generic/tclStringObj.c | |
| parent | cce3e24d79748eac636413846c059037a931f6eb (diff) | |
| download | tcl-703719c9b3a0c57b9a4b38f38af6ac1afc41a49c.zip tcl-703719c9b3a0c57b9a4b38f38af6ac1afc41a49c.tar.gz tcl-703719c9b3a0c57b9a4b38f38af6ac1afc41a49c.tar.bz2 | |
Backport fix for [Bug 2857044].
FossilOrigin-Name: 1855377cde9abe359acc2f05c1cb5f20cbf5cfcf
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 17bed1b..13dda54 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3056,6 +3056,7 @@ FreeStringInternalRep( Tcl_Obj *objPtr) /* Object with internal rep to free. */ { ckfree((char *) GET_STRING(objPtr)); + objPtr->typePtr = NULL; } /* |