diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-09-18 09:35:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-09-18 09:35:47 (GMT) |
| commit | 484ebabeb2aa808d4b9ceeaaaea46f965391d57c (patch) | |
| tree | 0103ff647d93188e3cff6ccd56bfaa74f51aa81b | |
| parent | c1b434e05c25c894e757c3a1db20aeb65b1e7c03 (diff) | |
| download | tcl-484ebabeb2aa808d4b9ceeaaaea46f965391d57c.zip tcl-484ebabeb2aa808d4b9ceeaaaea46f965391d57c.tar.gz tcl-484ebabeb2aa808d4b9ceeaaaea46f965391d57c.tar.bz2 | |
Fix [77059c4f45]: TclPushVarName(): pointer overflowcore-bug-77059c4f45
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 6c66278..31ab7d0 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -3526,7 +3526,7 @@ TclPushVarName( name = varTokenPtr[1].start; nameLen = varTokenPtr[1].size; - if (name[nameLen-1] == ')') { + if (nameLen > 0 && name[nameLen-1] == ')') { /* * last char is ')' => potential array reference. */ |