summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdMZ.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-03-02 08:47:35 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-03-02 08:47:35 (GMT)
commitf73c7daa07ce0b9759ce82a413ebd06b5fa86003 (patch)
tree03e28271184ec9311866588885ab24b63c6ec1db /generic/tclCmdMZ.c
parentd11b1250fc7ee6e7a97d270d93961e8580140753 (diff)
downloadtcl-f73c7daa07ce0b9759ce82a413ebd06b5fa86003.zip
tcl-f73c7daa07ce0b9759ce82a413ebd06b5fa86003.tar.gz
tcl-f73c7daa07ce0b9759ce82a413ebd06b5fa86003.tar.bz2
Use a less hacky way of using a char as a hash key
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r--generic/tclCmdMZ.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index af97570..84fbe1b 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.202 2010/02/27 19:02:26 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.203 2010/03/02 08:47:35 dkf Exp $
*/
#include "tclInt.h"
@@ -1067,7 +1067,7 @@ Tcl_SplitObjCmd(
* Assume Tcl_UniChar is an integral type...
*/
- hPtr = Tcl_CreateHashEntry(&charReuseTable, (char*)0+ch, &isNew);
+ hPtr = Tcl_CreateHashEntry(&charReuseTable, INT2PTR(ch), &isNew);
if (isNew) {
TclNewStringObj(objPtr, stringPtr, len);
@@ -1077,7 +1077,7 @@ Tcl_SplitObjCmd(
Tcl_SetHashValue(hPtr, objPtr);
} else {
- objPtr = (Tcl_Obj *) Tcl_GetHashValue(hPtr);
+ objPtr = Tcl_GetHashValue(hPtr);
}
Tcl_ListObjAppendElement(NULL, listPtr, objPtr);
}