diff options
| author | dgp <dgp@users.sourceforge.net> | 2022-09-15 15:59:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2022-09-15 15:59:11 (GMT) |
| commit | 4968ffa1ce26b16430b8237f14784242c1075a1b (patch) | |
| tree | 6fc4c391fb042837aaad1b0f1aedccf39aa31b52 /generic/tclProc.c | |
| parent | 105dbed51fdc3f78e059aaf851329a4f82c25ecb (diff) | |
| download | tcl-4968ffa1ce26b16430b8237f14784242c1075a1b.zip tcl-4968ffa1ce26b16430b8237f14784242c1075a1b.tar.gz tcl-4968ffa1ce26b16430b8237f14784242c1075a1b.tar.bz2 | |
[51d5f22997] Protect against passing negative size to Tcl_NewListObj.
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 b846269..4d421c7 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1431,7 +1431,7 @@ InitArgsAndLocals( varPtr->flags = 0; if (defPtr && defPtr->flags & VAR_IS_ARGS) { - Tcl_Obj *listPtr = Tcl_NewListObj(argCt-i, argObjs+i); + Tcl_Obj *listPtr = Tcl_NewListObj((argCt>i)? argCt-i : 0, argObjs+i); varPtr->value.objPtr = listPtr; Tcl_IncrRefCount(listPtr); /* Local var is a reference. */ |