diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-14 10:29:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-14 10:29:31 (GMT) |
| commit | 9313b767a51519d351457e037a2e55738801f8e0 (patch) | |
| tree | b613fea0880aa13bd6d80bc9017e7d9869fe96ce /generic/tclCompile.c | |
| parent | 1dec5c759982e209781ee01e37a72d19be2077a2 (diff) | |
| parent | f1b74b07572c8ac168a3313a6c71ec30f1a7485c (diff) | |
| download | tcl-9313b767a51519d351457e037a2e55738801f8e0.zip tcl-9313b767a51519d351457e037a2e55738801f8e0.tar.gz tcl-9313b767a51519d351457e037a2e55738801f8e0.tar.bz2 | |
Merge 8.7. Fix (windows MSVC OPTS=symbols) build error
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 090f542..cfdbda0 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -3047,7 +3047,7 @@ TclFindCompiledLocal( if (create || (name == NULL)) { localVar = procPtr->numCompiledLocals; - localPtr = (CompiledLocal *)Tcl_Alloc(offsetof(CompiledLocal, name) + nameBytes + 1); + localPtr = (CompiledLocal *)Tcl_Alloc(offsetof(CompiledLocal, name) + 1U + nameBytes); if (procPtr->firstLocalPtr == NULL) { procPtr->firstLocalPtr = procPtr->lastLocalPtr = localPtr; } else { |