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/tclProc.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/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 28538b1..ff1b1b3 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -633,7 +633,7 @@ TclCreateProc( */ localPtr = (CompiledLocal *)Tcl_Alloc( - offsetof(CompiledLocal, name) + fieldValues[0]->length + 1); + offsetof(CompiledLocal, name) + 1U + fieldValues[0]->length); if (procPtr->firstLocalPtr == NULL) { procPtr->firstLocalPtr = procPtr->lastLocalPtr = localPtr; } else { |