diff options
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 6abefa9..c477ca0 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -3620,9 +3620,7 @@ InitializeEncodingSearchPath( if (*encodingPtr) { ((Encoding *)(*encodingPtr))->refCount++; } - bytes = TclGetString(searchPathObj); - - *lengthPtr = searchPathObj->length; + bytes = TclGetStringFromObj(searchPathObj, lengthPtr); *valuePtr = Tcl_Alloc(*lengthPtr + 1); memcpy(*valuePtr, bytes, *lengthPtr + 1); Tcl_DecrRefCount(searchPathObj); |