diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-10-25 02:23:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-10-25 02:23:12 (GMT) |
| commit | eb2cfa3e6f2fc11362ae54a2004ade43a57c86de (patch) | |
| tree | daabb3271f71b3544274a0583dc7f35888556160 /generic/tclEncoding.c | |
| parent | 40d9b81e23c10ebc3abfe4ac12af411d01318fb9 (diff) | |
| download | tcl-eb2cfa3e6f2fc11362ae54a2004ade43a57c86de.zip tcl-eb2cfa3e6f2fc11362ae54a2004ade43a57c86de.tar.gz tcl-eb2cfa3e6f2fc11362ae54a2004ade43a57c86de.tar.bz2 | |
Repair Tcl_CreateEncoding(); Modernize [testencoding];
Update most tests toying with identity encoding.
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index f43c0e1..1f48a1c 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1070,8 +1070,8 @@ Tcl_CreateEncoding( * reference goes away. */ - encodingPtr = Tcl_GetHashValue(hPtr); - encodingPtr->hPtr = NULL; + Encoding *replaceMe = Tcl_GetHashValue(hPtr); + replaceMe->hPtr = NULL; } name = ckalloc(strlen(typePtr->encodingName) + 1); |