diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-01 22:03:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-01 22:03:11 (GMT) |
| commit | f4d17d021d7c47a9b6306a641a358da4b9cabd00 (patch) | |
| tree | ac5fe0a10b15e904480316b9452d907c38584f4d /generic/tkCmds.c | |
| parent | 2f85b7bb79cfbc0095934aba3bb3c78e0974eeb9 (diff) | |
| download | tk-f4d17d021d7c47a9b6306a641a358da4b9cabd00.zip tk-f4d17d021d7c47a9b6306a641a358da4b9cabd00.tar.gz tk-f4d17d021d7c47a9b6306a641a358da4b9cabd00.tar.bz2 | |
Fix crash with Tcl9 headers
Diffstat (limited to 'generic/tkCmds.c')
| -rw-r--r-- | generic/tkCmds.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index b745a96..e652740 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -349,7 +349,8 @@ Tk_BindtagsObjCmd( { Tk_Window tkwin = (Tk_Window)clientData; TkWindow *winPtr, *winPtr2; - TkSizeT i, length; + TkSizeT i; + int length; const char *p; Tcl_Obj *listPtr, **tags; @@ -400,7 +401,7 @@ Tk_BindtagsObjCmd( winPtr->numTags = length; winPtr->tagPtr = (void **)ckalloc(length * sizeof(void *)); - for (i = 0; i < length; i++) { + for (i = 0; i < (TkSizeT)length; i++) { p = Tcl_GetString(tags[i]); if (p[0] == '.') { char *copy; |