File tree Expand file tree Collapse file tree 1 file changed +5
-5
lines changed
Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -4652,7 +4652,7 @@ MODULE_SCOPE const TclFileAttrProcs tclpFileAttrProcs[];
46524652
46534653/* Token growth tuning, default to the general value. */
46544654#ifndef TCL_MIN_TOKEN_GROWTH
4655- #define TCL_MIN_TOKEN_GROWTH TCL_MIN_GROWTH/sizeof(Tcl_Token)
4655+ #define TCL_MIN_TOKEN_GROWTH ( TCL_MIN_GROWTH/sizeof(Tcl_Token) )
46564656#endif
46574657
46584658static inline void
@@ -4669,16 +4669,16 @@ TclGrowParseTokenArray(
46694669 oldPtr = NULL ;
46704670 }
46714671 newPtr = (Tcl_Token * )Tcl_AttemptRealloc ((char * ) oldPtr ,
4672- allocated * sizeof (Tcl_Token ));
4672+ ( size_t ) allocated * sizeof (Tcl_Token ));
46734673 if (newPtr == NULL ) {
4674- allocated = needed + append + TCL_MIN_TOKEN_GROWTH ;
4674+ allocated = needed + append + ( Tcl_Size ) TCL_MIN_TOKEN_GROWTH ;
46754675 newPtr = (Tcl_Token * )Tcl_Realloc ((char * ) oldPtr ,
4676- allocated * sizeof (Tcl_Token ));
4676+ ( size_t ) allocated * sizeof (Tcl_Token ));
46774677 }
46784678 parsePtr -> tokensAvailable = allocated ;
46794679 if (oldPtr == NULL ) {
46804680 memcpy (newPtr , parsePtr -> staticTokens ,
4681- parsePtr -> numTokens * sizeof (Tcl_Token ));
4681+ ( size_t ) parsePtr -> numTokens * sizeof (Tcl_Token ));
46824682 }
46834683 parsePtr -> tokenPtr = newPtr ;
46844684 }
You can’t perform that action at this time.
0 commit comments