diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-14 10:27:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-14 10:27:26 (GMT) |
| commit | 549548bacfac01474e18ad35a8330184146a0811 (patch) | |
| tree | 2acf9dd976d0128226a13e2f321233725e831902 /generic/tclProc.c | |
| parent | 7d5a69fb31f8327c06f9d8bd69836dd2ff78b330 (diff) | |
| parent | 4f9fc86e5d0f464283c34d96b2bcec28ac0458c8 (diff) | |
| download | tcl-549548bacfac01474e18ad35a8330184146a0811.zip tcl-549548bacfac01474e18ad35a8330184146a0811.tar.gz tcl-549548bacfac01474e18ad35a8330184146a0811.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 60b7662..6f51da8 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -545,7 +545,7 @@ TclCreateProc( */ argnamei = argname; - argnamelast = Tcl_UtfPrev(argname + nameLength, argname); + argnamelast = (nameLength > 0) ? (argname + nameLength - 1) : argname; while (argnamei < argnamelast) { if (*argnamei == '(') { if (*argnamelast == ')') { /* We have an array element. */ @@ -566,7 +566,7 @@ TclCreateProc( "FORMALARGUMENTFORMAT", NULL); goto procError; } - argnamei = Tcl_UtfNext(argnamei); + argnamei++; } if (precompiled) { |