diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-04-19 19:36:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-04-19 19:36:40 (GMT) |
| commit | e359627a3620dd5d90bb533fd3aef15586b1d8af (patch) | |
| tree | badeb8e3c8e7da95e531a1e2791b9dcaa653ceb4 /generic/tclObj.c | |
| parent | f22a5b57f7bfe63f0f97cbc22f7fa7906dcc10aa (diff) | |
| download | tcl-e359627a3620dd5d90bb533fd3aef15586b1d8af.zip tcl-e359627a3620dd5d90bb533fd3aef15586b1d8af.tar.gz tcl-e359627a3620dd5d90bb533fd3aef15586b1d8af.tar.bz2 | |
TIP 660 changes to stop warnings in --enable-symbols=mem build.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 38953d8..3735084 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -355,7 +355,7 @@ typedef struct ResolvedCmdName { * incremented without actual references!) */ #define FREEDREFCOUNTFILLER \ - (sizeof(objPtr->refCount) == 4 ? 0xe8e8e8e8 : 0xe8e8e8e8e8e8e8e8) + (Tcl_Size)(sizeof(objPtr->refCount) == 4 ? 0xe8e8e8e8 : 0xe8e8e8e8e8e8e8e8) #endif @@ -1325,7 +1325,7 @@ TclFreeObj( * either from 1 to 0, or from 0 to -1. Falling from -1 to -2, though, * and so on, is always a sign of a botch in the caller. */ - if (objPtr->refCount == (size_t)-2) { + if (objPtr->refCount == (Tcl_Size)-2) { Tcl_Panic("Reference count for %p was negative", objPtr); } /* |