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/tclZlib.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/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 5a6dbc4..dc7c3f3 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -547,8 +547,8 @@ ExtractHeader( } } - Tcl_ExternalToUtfDStringEx(latin1enc, (char *) headerPtr->comment, -1, - TCL_ENCODING_NOCOMPLAIN, &tmp); + Tcl_ExternalToUtfDStringEx(NULL, latin1enc, (char *) headerPtr->comment, -1, + TCL_ENCODING_PROFILE_TCL8, &tmp, NULL); SetValue(dictObj, "comment", Tcl_DStringToObj(&tmp)); } SetValue(dictObj, "crc", Tcl_NewBooleanObj(headerPtr->hcrc)); @@ -564,8 +564,8 @@ ExtractHeader( } } - Tcl_ExternalToUtfDStringEx(latin1enc, (char *) headerPtr->name, -1, - TCL_ENCODING_NOCOMPLAIN, &tmp); + Tcl_ExternalToUtfDStringEx(NULL, latin1enc, (char *) headerPtr->name, -1, + TCL_ENCODING_PROFILE_TCL8, &tmp, NULL); SetValue(dictObj, "filename", Tcl_DStringToObj(&tmp)); } if (headerPtr->os != 255) { |