diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-16 20:28:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-16 20:28:53 (GMT) |
| commit | cca5a0c27a301473dd9e717180bb6db0cabd8f78 (patch) | |
| tree | d761f4a3fb5546b8115125f8dc40389056c00bbf /generic/tclTest.c | |
| parent | 9a51ddaa6e245b55bd471afb1797e1a11eecb960 (diff) | |
| parent | 73f548527aa3d3852c86c86fba701c277e43e40f (diff) | |
| download | tcl-cca5a0c27a301473dd9e717180bb6db0cabd8f78.zip tcl-cca5a0c27a301473dd9e717180bb6db0cabd8f78.tar.gz tcl-cca5a0c27a301473dd9e717180bb6db0cabd8f78.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 54deaea..47c572f 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6836,7 +6836,7 @@ TestNumUtfCharsCmd( int len = -1; if (objc > 2) { - (void) Tcl_GetStringFromObj(objv[1], &len); + (void) Tcl_GetIntFromObj(interp, objv[2], &len); } len = Tcl_NumUtfChars(Tcl_GetString(objv[1]), len); Tcl_SetObjResult(interp, Tcl_NewIntObj(len)); |