diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-21 14:19:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-21 14:19:59 (GMT) |
| commit | 0726ab17a254f87dcee64add378c07c5f893bb7c (patch) | |
| tree | e95908ffb9e861b5d612623414123de1f5baaebd /generic/tclUtil.c | |
| parent | fbc1385f022d052dc79c90424606cb96b8964b93 (diff) | |
| parent | b39c277e12e6135a57caca867bb94569bd4bbb10 (diff) | |
| download | tcl-0726ab17a254f87dcee64add378c07c5f893bb7c.zip tcl-0726ab17a254f87dcee64add378c07c5f893bb7c.tar.gz tcl-0726ab17a254f87dcee64add378c07c5f893bb7c.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 4e2165b..8f1e1ad 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -4010,10 +4010,10 @@ TclGetProcessGlobalValue( Tcl_MutexLock(&pgvPtr->mutex); epoch = ++pgvPtr->epoch; - Tcl_UtfToExternalDString(pgvPtr->encoding, pgvPtr->value, - pgvPtr->numBytes, &native); - Tcl_ExternalToUtfDString(current, Tcl_DStringValue(&native), - Tcl_DStringLength(&native), &newValue); + Tcl_UtfToExternalDStringEx(pgvPtr->encoding, pgvPtr->value, + pgvPtr->numBytes, TCL_ENCODING_NOCOMPLAIN, &native); + Tcl_ExternalToUtfDStringEx(current, Tcl_DStringValue(&native), + Tcl_DStringLength(&native), TCL_ENCODING_NOCOMPLAIN, &newValue); Tcl_DStringFree(&native); Tcl_Free(pgvPtr->value); pgvPtr->value = (char *)Tcl_Alloc(Tcl_DStringLength(&newValue) + 1); |