summaryrefslogtreecommitdiffstats
path: root/generic/tclZlib.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-03-21 14:19:59 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-03-21 14:19:59 (GMT)
commit0726ab17a254f87dcee64add378c07c5f893bb7c (patch)
treee95908ffb9e861b5d612623414123de1f5baaebd /generic/tclZlib.c
parentfbc1385f022d052dc79c90424606cb96b8964b93 (diff)
parentb39c277e12e6135a57caca867bb94569bd4bbb10 (diff)
downloadtcl-0726ab17a254f87dcee64add378c07c5f893bb7c.zip
tcl-0726ab17a254f87dcee64add378c07c5f893bb7c.tar.gz
tcl-0726ab17a254f87dcee64add378c07c5f893bb7c.tar.bz2
Merge 9.0
Diffstat (limited to 'generic/tclZlib.c')
-rw-r--r--generic/tclZlib.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index 00b262d..3a7290e 100644
--- a/generic/tclZlib.c
+++ b/generic/tclZlib.c
@@ -547,8 +547,8 @@ ExtractHeader(
}
}
- Tcl_ExternalToUtfDString(latin1enc, (char *) headerPtr->comment, -1,
- &tmp);
+ Tcl_ExternalToUtfDStringEx(latin1enc, (char *) headerPtr->comment, -1,
+ TCL_ENCODING_NOCOMPLAIN, &tmp);
SetValue(dictObj, "comment", TclDStringToObj(&tmp));
}
SetValue(dictObj, "crc", Tcl_NewBooleanObj(headerPtr->hcrc));
@@ -564,8 +564,8 @@ ExtractHeader(
}
}
- Tcl_ExternalToUtfDString(latin1enc, (char *) headerPtr->name, -1,
- &tmp);
+ Tcl_ExternalToUtfDStringEx(latin1enc, (char *) headerPtr->name, -1,
+ TCL_ENCODING_NOCOMPLAIN, &tmp);
SetValue(dictObj, "filename", TclDStringToObj(&tmp));
}
if (headerPtr->os != 255) {