? patch419528.txt
Index: generic/tclIndexObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIndexObj.c,v
retrieving revision 1.9
diff -r1.9 tclIndexObj.c
180c180
< 	    entryPtr = (char **) ((size_t) entryPtr + offset), i++) {
---
> 	    entryPtr = (char **) ((char *) entryPtr + offset), i++) {
225c225
< 	for (entryPtr = (char **) ((size_t) tablePtr + offset), count = 0;
---
> 	for (entryPtr = (char **) ((char *) tablePtr + offset), count = 0;
227,228c227,228
< 		entryPtr = (char **) ((size_t) entryPtr + offset), count++) {
< 	    if ((*((char **) ((size_t) entryPtr + offset))) == NULL) {
---
> 		entryPtr = (char **) ((char *) entryPtr + offset), count++) {
> 	    if ((*((char **) ((char *) entryPtr + offset))) == NULL) {