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 @@ -4636,7 +4636,7 @@ MODULE_SCOPE const TclFileAttrProcs tclpFileAttrProcs[];
46364636
46374637/* Token growth tuning, default to the general value. */
46384638#ifndef TCL_MIN_TOKEN_GROWTH
4639- #define TCL_MIN_TOKEN_GROWTH TCL_MIN_GROWTH/sizeof(Tcl_Token)
4639+ #define TCL_MIN_TOKEN_GROWTH ( TCL_MIN_GROWTH/sizeof(Tcl_Token) )
46404640#endif
46414641
46424642static inline void
@@ -4653,16 +4653,16 @@ TclGrowParseTokenArray(
46534653 oldPtr = NULL ;
46544654 }
46554655 newPtr = (Tcl_Token * )Tcl_AttemptRealloc ((char * ) oldPtr ,
4656- allocated * sizeof (Tcl_Token ));
4656+ ( size_t ) allocated * sizeof (Tcl_Token ));
46574657 if (newPtr == NULL ) {
4658- allocated = needed + append + TCL_MIN_TOKEN_GROWTH ;
4658+ allocated = needed + append + ( Tcl_Size ) TCL_MIN_TOKEN_GROWTH ;
46594659 newPtr = (Tcl_Token * )Tcl_Realloc ((char * ) oldPtr ,
4660- allocated * sizeof (Tcl_Token ));
4660+ ( size_t ) allocated * sizeof (Tcl_Token ));
46614661 }
46624662 parsePtr -> tokensAvailable = allocated ;
46634663 if (oldPtr == NULL ) {
46644664 memcpy (newPtr , parsePtr -> staticTokens ,
4665- parsePtr -> numTokens * sizeof (Tcl_Token ));
4665+ ( size_t ) parsePtr -> numTokens * sizeof (Tcl_Token ));
46664666 }
46674667 parsePtr -> tokenPtr = newPtr ;
46684668 }
You can’t perform that action at this time.
0 commit comments