diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-13 12:18:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-13 12:18:16 (GMT) |
| commit | a57504b7697df8a915b8c57183ec18c2068b53dd (patch) | |
| tree | 36294aa6561aff40db4d2ae02c43e54f97e5bf92 /generic/tclTest.c | |
| parent | 2ab08afabdfc1091ae69439fb7c8bf81e8729e3e (diff) | |
| parent | f019737860823b97cfde68d64a5175fa21c3a967 (diff) | |
| download | tcl-a57504b7697df8a915b8c57183ec18c2068b53dd.zip tcl-a57504b7697df8a915b8c57183ec18c2068b53dd.tar.gz tcl-a57504b7697df8a915b8c57183ec18c2068b53dd.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 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)); |