diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-18 09:15:20 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-18 09:15:20 (GMT) |
commit | 381a18837e29048d841319f21cbcfb3f36bcf8b3 (patch) | |
tree | eed067f0aa90dc55c26ea0f68e1ec77200b49504 /macosx | |
parent | 5fe5ad497b285e93ff7d3efc929e8f2ac88b779e (diff) | |
parent | d5ac687adb2b0e67f8afcdf007890d6da415f26c (diff) | |
download | tcl-381a18837e29048d841319f21cbcfb3f36bcf8b3.zip tcl-381a18837e29048d841319f21cbcfb3f36bcf8b3.tar.gz tcl-381a18837e29048d841319f21cbcfb3f36bcf8b3.tar.bz2 |
Merge 9.0
Diffstat (limited to 'macosx')
-rw-r--r-- | macosx/tclMacOSXFCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/macosx/tclMacOSXFCmd.c b/macosx/tclMacOSXFCmd.c index b1859c4..5375a49 100644 --- a/macosx/tclMacOSXFCmd.c +++ b/macosx/tclMacOSXFCmd.c @@ -643,7 +643,7 @@ SetOSTypeFromAny( size_t length; string = Tcl_GetStringFromObj(objPtr, &length); - Tcl_UtfToExternalDStringEx(encoding, string, length, TCL_ENCODING_NOCOMPLAIN, &ds); + Tcl_UtfToExternalDStringEx(NULL, encoding, string, length, TCL_ENCODING_PROFILE_TCL8, &ds, NULL); if (Tcl_DStringLength(&ds) > 4) { if (interp) { |