diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-08 11:48:13 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-08 11:48:13 (GMT) |
commit | 9562ecd7fa7b25bf6e8e37f5977c81336fd46c06 (patch) | |
tree | 241320f6e42e21aa0ab94b1c29fb08ef5e4799fb /generic/tclTest.c | |
parent | 73a3dfdeeabb1a43c73101b4b6a9826f83866b32 (diff) | |
download | tcl-9562ecd7fa7b25bf6e8e37f5977c81336fd46c06.zip tcl-9562ecd7fa7b25bf6e8e37f5977c81336fd46c06.tar.gz tcl-9562ecd7fa7b25bf6e8e37f5977c81336fd46c06.tar.bz2 |
tclUtil.c: Use TclUtfToUniChar() in stead of handling ASCII characters separately: This macro already does that.
Add new test-case for Tcl_NumUtfChars(), for a knownBug still to be fixed.
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)); |