Tcl Source Code

Artifact [089e3e3a3c]
Login

Artifact 089e3e3a3c6db79963c9ad7948823bd86e23e2c2:

Attachment "patch419528.txt" to ticket [419528ffff] added by msofer 2001-08-14 06:08:30.
? 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) {