diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-14 09:54:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-14 09:54:48 (GMT) |
| commit | a9eaf6765198716158f4927d71f64d20182f1ad2 (patch) | |
| tree | 0ab3b08314676d08df2b812aa6906ee313a231bd /generic/tclProc.c | |
| parent | 2dd5df343a4d942668e094deb4363e8b7a938868 (diff) | |
| parent | 1bc44ec32ab03ebaec021f52129ee1fefcac7850 (diff) | |
| download | tcl-a9eaf6765198716158f4927d71f64d20182f1ad2.zip tcl-a9eaf6765198716158f4927d71f64d20182f1ad2.tar.gz tcl-a9eaf6765198716158f4927d71f64d20182f1ad2.tar.bz2 | |
Fix [816913a65e]: GrowStringBuffer(): signed integer overflow. And a few similar situations in other places
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 7921d38..a533878 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -600,7 +600,7 @@ TclCreateProc( */ localPtr = (CompiledLocal *)ckalloc( - TclOffset(CompiledLocal, name) + fieldValues[0]->length + 1); + TclOffset(CompiledLocal, name) + 1U + fieldValues[0]->length); if (procPtr->firstLocalPtr == NULL) { procPtr->firstLocalPtr = procPtr->lastLocalPtr = localPtr; } else { |