diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-09-07 14:24:49 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-09-07 14:24:49 (GMT) |
| commit | 9a15a1b58648809ffb208eaa00cd20af4784050d (patch) | |
| tree | 0b5e9a8d926eb683682197dcf5956cc0e2841b67 /generic/tclProc.c | |
| parent | 95db69f27b003d548813280a19d1b290332bf2ef (diff) | |
| download | tcl-9a15a1b58648809ffb208eaa00cd20af4784050d.zip tcl-9a15a1b58648809ffb208eaa00cd20af4784050d.tar.gz tcl-9a15a1b58648809ffb208eaa00cd20af4784050d.tar.bz2 | |
small code review (duplicate code removed)
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 e51f5b3..232eb93 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -611,7 +611,7 @@ TclCreateProc( procPtr->lastLocalPtr = localPtr; } localPtr->nextPtr = NULL; - localPtr->nameLength = Tcl_NumUtfChars(argname, fieldValues[0]->length); + localPtr->nameLength = nameLength; localPtr->frameIndex = i; localPtr->flags = VAR_ARGUMENT; localPtr->resolveInfo = NULL; |