diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 13:42:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-05 13:42:40 (GMT) |
| commit | fed1ff66dc94e36bd81d2375954f2f011f8c329a (patch) | |
| tree | 7cd476c6fb585baf7e252bdf0851a25dc2778b48 /generic/tclInt.h | |
| parent | d9e28af5f3009abed0834f48bc9b816719ce3e2b (diff) | |
| download | tcl-fed1ff66dc94e36bd81d2375954f2f011f8c329a.zip tcl-fed1ff66dc94e36bd81d2375954f2f011f8c329a.tar.gz tcl-fed1ff66dc94e36bd81d2375954f2f011f8c329a.tar.bz2 | |
More implicit type-casts, for better compatibility with C++
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index f2f097c..df29da8 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4215,7 +4215,7 @@ MODULE_SCOPE void TclpFreeAllocCache(void *); (objPtr) = TclThreadAllocObj(); \ } else { \ (objPtr) = cachePtr->firstObjPtr; \ - cachePtr->firstObjPtr = (objPtr)->internalRep.twoPtrValue.ptr1; \ + cachePtr->firstObjPtr = (Tcl_Obj *)(objPtr)->internalRep.twoPtrValue.ptr1; \ --cachePtr->numObjects; \ } \ } while (0) |