diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-02 13:06:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-02 13:06:48 (GMT) |
| commit | 16510ceb169ad5b14ce5669b208464ceee4c67fd (patch) | |
| tree | 10805a37797c8d8c55e545d78769bf762240db66 /generic/tclBasic.c | |
| parent | 70d6ba87462da32e8515e346a38eae4c9c9ab83f (diff) | |
| parent | 585d7c7548a1715348b0a9bd270044a399b1f14d (diff) | |
| download | tcl-16510ceb169ad5b14ce5669b208464ceee4c67fd.zip tcl-16510ceb169ad5b14ce5669b208464ceee4c67fd.tar.gz tcl-16510ceb169ad5b14ce5669b208464ceee4c67fd.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 379ab10..952c857 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -2654,11 +2654,14 @@ typedef struct { static int cmdWrapperProc(void *clientData, - Tcl_Interp *interp, - int objc, + Tcl_Interp *interp, + int objc, Tcl_Obj * const *objv) { CmdWrapperInfo *info = (CmdWrapperInfo *)clientData; + if (objc < 0) { + objc = -1; + } return info->proc(info->clientData, interp, objc, objv); } |