diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-25 03:03:46 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-25 03:03:46 (GMT) |
| commit | f0f2ee57f9f6423cc4fb56be376158f7e006739e (patch) | |
| tree | 6927074dc76b88fec40d76c7a1554581d814e79a /generic/tclUtil.c | |
| parent | 50cafc9f132619bcb0c671486c587f639b5f772b (diff) | |
| download | tcl-f0f2ee57f9f6423cc4fb56be376158f7e006739e.zip tcl-f0f2ee57f9f6423cc4fb56be376158f7e006739e.tar.gz tcl-f0f2ee57f9f6423cc4fb56be376158f7e006739e.tar.bz2 | |
Compiles and runs. Tests still to be ported.
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index e96a564..3abd615 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -4026,10 +4026,11 @@ TclGetProcessGlobalValue( Tcl_MutexLock(&pgvPtr->mutex); epoch = ++pgvPtr->epoch; - 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_UtfToExternalDStringEx(NULL, pgvPtr->encoding, pgvPtr->value, + pgvPtr->numBytes, TCL_ENCODING_PROFILE_TCL8, &native, NULL); + Tcl_ExternalToUtfDStringEx(NULL, current, Tcl_DStringValue(&native), + Tcl_DStringLength(&native), TCL_ENCODING_PROFILE_TCL8, + &newValue, NULL); Tcl_DStringFree(&native); Tcl_Free(pgvPtr->value); pgvPtr->value = (char *)Tcl_Alloc(Tcl_DStringLength(&newValue) + 1); |