diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-23 10:12:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-23 10:12:47 (GMT) |
| commit | 1b7e7f9d63511b6a708a4b20a4f4f66b242eca97 (patch) | |
| tree | 8f6142db36e1797e3ded86a511843f0140ecc5b8 /generic/tkCanvUtil.c | |
| parent | 205240450628965d4d3eae2bebc5976ef76c72b3 (diff) | |
| download | tk-1b7e7f9d63511b6a708a4b20a4f4f66b242eca97.zip tk-1b7e7f9d63511b6a708a4b20a4f4f66b242eca97.tar.gz tk-1b7e7f9d63511b6a708a4b20a4f4f66b242eca97.tar.bz2 | |
Fix crash in canvRect testcase. Adapt some more loops the same way, handling > 2^31 tags when Tcl >= 9.0
Diffstat (limited to 'generic/tkCanvUtil.c')
| -rw-r--r-- | generic/tkCanvUtil.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkCanvUtil.c b/generic/tkCanvUtil.c index 14c02f0..99f9072 100644 --- a/generic/tkCanvUtil.c +++ b/generic/tkCanvUtil.c @@ -432,7 +432,7 @@ TkCanvasTagsParseProc( if (itemPtr->tagSpace < argc) { newPtr = (Tk_Uid *)ckalloc(argc * sizeof(Tk_Uid)); - for (i = itemPtr->numTags - 1; i >= 0; i--) { + for (i = itemPtr->numTags - 1; i != TCL_INDEX_NONE; i--) { newPtr[i] = itemPtr->tagPtr[i]; } if (itemPtr->tagPtr != itemPtr->staticTagSpace) { |