diff options
author | dgp <dgp@users.sourceforge.net> | 2017-06-16 20:17:33 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-06-16 20:17:33 (GMT) |
commit | 9f310b9b2ccc538a0ec23c5e78c345ea25e5812c (patch) | |
tree | 8af0d2c3a1fa90ba8d2245452267c15e2667850c /generic/tclTest.c | |
parent | f042609de58528f349ca4b106f220eea5f59297c (diff) | |
parent | f7860f65a494888a46e377831ba0419de5f364d9 (diff) | |
download | tcl-9f310b9b2ccc538a0ec23c5e78c345ea25e5812c.zip tcl-9f310b9b2ccc538a0ec23c5e78c345ea25e5812c.tar.gz tcl-9f310b9b2ccc538a0ec23c5e78c345ea25e5812c.tar.bz2 |
Merge 8.6; update changes.
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 f2dbfc9..e8539e8 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6672,7 +6672,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)); |