diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-19 11:47:58 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-19 11:47:58 (GMT) |
commit | ec8dfd57db4d9f4cfdef1f38109a55addf6c030a (patch) | |
tree | a82bc8f6d088d870fe786a57be9474660561e877 /generic/tclVar.c | |
parent | 3c8ac03074fc97f5cacb7163698d37faa4c2f07e (diff) | |
download | tcl-ec8dfd57db4d9f4cfdef1f38109a55addf6c030a.zip tcl-ec8dfd57db4d9f4cfdef1f38109a55addf6c030a.tar.gz tcl-ec8dfd57db4d9f4cfdef1f38109a55addf6c030a.tar.bz2 |
Some more Tcl_Size usage
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r-- | generic/tclVar.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index e79bfc1..ea8a104 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -379,7 +379,8 @@ CleanupVar( { if (TclIsVarUndefined(varPtr) && TclIsVarInHash(varPtr) && !TclIsVarTraced(varPtr) - && (VarHashRefCount(varPtr) == !TclIsVarDeadHash(varPtr))) { + && (VarHashRefCount(varPtr) == (Tcl_Size) + !TclIsVarDeadHash(varPtr))) { if (VarHashRefCount(varPtr) == 0) { ckfree(varPtr); } else { @@ -388,7 +389,8 @@ CleanupVar( } if (arrayPtr != NULL && TclIsVarUndefined(arrayPtr) && TclIsVarInHash(arrayPtr) && !TclIsVarTraced(arrayPtr) && - (VarHashRefCount(arrayPtr) == !TclIsVarDeadHash(arrayPtr))) { + (VarHashRefCount(arrayPtr) == (Tcl_Size) + !TclIsVarDeadHash(arrayPtr))) { if (VarHashRefCount(arrayPtr) == 0) { ckfree(arrayPtr); } else { @@ -5602,7 +5604,7 @@ TclDeleteCompiledLocalVars( * assigned local variables to delete. */ { Var *varPtr; - size_t numLocals, i; + Tcl_Size numLocals, i; Tcl_Obj **namePtrPtr; numLocals = framePtr->numCompiledLocals; |