diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 13:20:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 13:20:59 (GMT) |
| commit | aa4c91c8385dab2f9ad53cdf6b7f6d855553679a (patch) | |
| tree | caadb0616e1d66c7e41eccbedef8e5efb140bf36 /generic/tclProc.c | |
| parent | 2061afedcc31ca00e6ff09dda489ca101e736339 (diff) | |
| parent | 524b1d9fb207987cf66ca92d5198e30e27e0931e (diff) | |
| download | tcl-aa4c91c8385dab2f9ad53cdf6b7f6d855553679a.zip tcl-aa4c91c8385dab2f9ad53cdf6b7f6d855553679a.tar.gz tcl-aa4c91c8385dab2f9ad53cdf6b7f6d855553679a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 6f51da8..e8c4e6c 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -632,7 +632,8 @@ TclCreateProc( * local variables for the argument. */ - localPtr = (CompiledLocal *)Tcl_Alloc(offsetof(CompiledLocal, name) + fieldValues[0]->length +1); + localPtr = (CompiledLocal *)Tcl_Alloc( + offsetof(CompiledLocal, name) + fieldValues[0]->length + 1); if (procPtr->firstLocalPtr == NULL) { procPtr->firstLocalPtr = procPtr->lastLocalPtr = localPtr; } else { @@ -1261,8 +1262,8 @@ InitLocalCache( * for future calls. */ - localCachePtr = (LocalCache *)Tcl_Alloc(sizeof(LocalCache) - + (localCt - 1) * sizeof(Tcl_Obj *) + localCachePtr = (LocalCache *)Tcl_Alloc(offsetof(LocalCache, varName0) + + localCt * sizeof(Tcl_Obj *) + numArgs * sizeof(Var)); namePtr = &localCachePtr->varName0; |