summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-03-05 23:12:54 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-03-05 23:12:54 (GMT)
commit68229918fe6fcdfed3765fb67237c56da8eda8e9 (patch)
treefc3fd421d67ea1fd486af3a55e0669e99bdd2617 /generic/tclCmdMZ.c
parente2c9dd401d8396244a2d94f15c05c019aa2a3b4c (diff)
downloadtcl-68229918fe6fcdfed3765fb67237c56da8eda8e9.zip
tcl-68229918fe6fcdfed3765fb67237c56da8eda8e9.tar.gz
tcl-68229918fe6fcdfed3765fb67237c56da8eda8e9.tar.bz2
Quell a warning in Kevin Kenny's build environment
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r--generic/tclCmdMZ.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index eb6bb7f..696835a 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.204 2010/03/05 14:34:03 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.205 2010/03/05 23:12:54 dkf Exp $
*/
#include "tclInt.h"
@@ -1067,7 +1067,8 @@ Tcl_SplitObjCmd(
* Assume Tcl_UniChar is an integral type...
*/
- hPtr = Tcl_CreateHashEntry(&charReuseTable, INT2PTR(ch), &isNew);
+ hPtr = Tcl_CreateHashEntry(&charReuseTable, INT2PTR((int) ch),
+ &isNew);
if (isNew) {
TclNewStringObj(objPtr, stringPtr, len);