diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-05-10 16:52:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-05-10 16:52:53 (GMT) |
| commit | 8de5d7db9521a7768f47f53adfa6ef41a2072ca9 (patch) | |
| tree | 620e18d988e661349d957eb09da1777d21f4b2f9 | |
| parent | 313d238fb894ff0775f40ec5aee77627742a3b1b (diff) | |
| parent | 08df07894566ad1a3cf2dc750ab9322761ee400f (diff) | |
| download | tcl-8de5d7db9521a7768f47f53adfa6ef41a2072ca9.zip tcl-8de5d7db9521a7768f47f53adfa6ef41a2072ca9.tar.gz tcl-8de5d7db9521a7768f47f53adfa6ef41a2072ca9.tar.bz2 | |
Value correctness over performance myths. Encoding ObjType duplication
needs to dup the typePtr so that each Tcl_GetEncoding() is balanced by
a Tcl_FreeEncoding().
| -rw-r--r-- | generic/tclEncoding.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 4edebcf..32055a3 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -355,6 +355,7 @@ DupEncodingIntRep( Tcl_Obj *dupPtr) { dupPtr->internalRep.twoPtrValue.ptr1 = Tcl_GetEncoding(NULL, srcPtr->bytes); + dupPtr->typePtr = &encodingType; } /* |