summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-05-06 13:22:05 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-05-06 13:22:05 (GMT)
commitc5e55206a201b155a055c3b6ebeb1bf592cc7f21 (patch)
treed00dd2bafc0ca8c0db2d5689457cfd7ba17963f8 /generic/tclCmdMZ.c
parent7adecdbf4a328b9f39774d0323a64886c1f160b3 (diff)
parent391948de408337582c0f29f4f897e1d0d5d96fcc (diff)
downloadtcl-c5e55206a201b155a055c3b6ebeb1bf592cc7f21.zip
tcl-c5e55206a201b155a055c3b6ebeb1bf592cc7f21.tar.gz
tcl-c5e55206a201b155a055c3b6ebeb1bf592cc7f21.tar.bz2
Merge 8.6
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r--generic/tclCmdMZ.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index d7394fb..56df0dd 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -1424,7 +1424,7 @@ StringIndexCmd(
*/
if (TclIsPureByteArray(objv[1])) {
- unsigned char uch = (unsigned char) ch;
+ unsigned char uch = UCHAR(ch);
Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(&uch, 1));
} else {