diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-02 14:41:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-02 14:41:09 (GMT) |
| commit | 007dfc95a9870b057dda71b51dc84e856aa09a38 (patch) | |
| tree | d7e38a49a2a4cf48ccf7999653f80359f96d8982 /generic/tclBasic.c | |
| parent | c453ac8b825e92c0df82beba270c4ff97a83b3a6 (diff) | |
| download | tcl-007dfc95a9870b057dda71b51dc84e856aa09a38.zip tcl-007dfc95a9870b057dda71b51dc84e856aa09a38.tar.gz tcl-007dfc95a9870b057dda71b51dc84e856aa09a38.tar.bz2 | |
Some additional protection for objc < 0
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b1b35e1..f474b5d 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -8480,7 +8480,10 @@ int wrapperNRObjProc( clientData = info->clientData; Tcl_ObjCmdProc2 *proc = info->proc; Tcl_Free(info); - return proc(clientData, interp, objc, objv); + if (objc < 0) { + objc = -1; + } + return proc(clientData, interp, (size_t)objc, objv); } int @@ -8536,7 +8539,10 @@ static int cmdWrapperNreProc( Tcl_Obj *const objv[]) { CmdWrapperInfo *info = (CmdWrapperInfo *)clientData; - return info->nreProc(info->clientData, interp, objc, objv); + if (objc < 0) { + objc = -1; + } + return info->nreProc(info->clientData, interp, (size_t)objc, objv); } Tcl_Command |