diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-08 12:38:56 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-08 12:38:56 (GMT) |
commit | 74d42f2fe9fc80e12aa490ffea731ac8114183b5 (patch) | |
tree | a27339ac3118a7718eb23d23b75ffbd9380bbe9a /generic/tclTest.c | |
parent | 061893f84e1d06c45531c7a4d7a7384e144dc69b (diff) | |
parent | 4276e234955e8ecdc91fd5d2ebee1acbb35753ad (diff) | |
download | tcl-74d42f2fe9fc80e12aa490ffea731ac8114183b5.zip tcl-74d42f2fe9fc80e12aa490ffea731ac8114183b5.tar.gz tcl-74d42f2fe9fc80e12aa490ffea731ac8114183b5.tar.bz2 |
merge core-8-6-branch
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 547dc9a..ebd90ae 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)); |