diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-09 13:45:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-09 13:45:10 (GMT) |
| commit | 8c311313a11ad2b7caa8a3626b03fb16da985df6 (patch) | |
| tree | 66003e1ea0284c739ccbf08bdd0dce9f83568f91 /generic/tclIndexObj.c | |
| parent | fbca23e5cc86151579530b5a2b3cdf5e2b48b12e (diff) | |
| download | tcl-8c311313a11ad2b7caa8a3626b03fb16da985df6.zip tcl-8c311313a11ad2b7caa8a3626b03fb16da985df6.tar.gz tcl-8c311313a11ad2b7caa8a3626b03fb16da985df6.tar.bz2 | |
Internal bug in Tcl_GetIndexFromObjStruct re-definition (works, as long as sizeof(struct) == sizeof(int))
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 40aabce..78dd47e 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -364,7 +364,7 @@ Tcl_GetIndexFromObjStruct( } /* #define again, needed below */ #define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \ - ((Tcl_GetIndexFromObjStruct)((interp), (objPtr), (tablePtr), (offset), (msg), (flags)|(int)(sizeof(*(indexPtr))<<8), (indexPtr))) + ((Tcl_GetIndexFromObjStruct)((interp), (objPtr), (tablePtr), (offset), (msg), (flags)|(int)(sizeof(*(indexPtr))<<1), (indexPtr))) /* *---------------------------------------------------------------------- |