diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-01 15:39:06 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-03-01 15:39:06 (GMT) |
commit | a0beeb8a76662930610855307fa41a53956e0543 (patch) | |
tree | dd161f284f20dc42d6ee71f05d1e28c5001c1168 /macosx | |
parent | 0f06bb38e8442323476fefa795aca4a69a3c1ef7 (diff) | |
download | tcl-a0beeb8a76662930610855307fa41a53956e0543.zip tcl-a0beeb8a76662930610855307fa41a53956e0543.tar.gz tcl-a0beeb8a76662930610855307fa41a53956e0543.tar.bz2 |
Fix Tcl_UtfToExternalDStringEx call in macos code
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 7bdc72a..e24c555 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) { |