diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-25 16:26:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-25 16:26:12 (GMT) |
| commit | 4804a3fdec7c1461645097c4aff7561ff9b2d210 (patch) | |
| tree | 6689a52db7483f50a6a83b31036af59f0d7405ca /generic/tclTest.c | |
| parent | be68e5390672eb86bccd24d1f6ca2675cfe80024 (diff) | |
| download | tcl-4804a3fdec7c1461645097c4aff7561ff9b2d210.zip tcl-4804a3fdec7c1461645097c4aff7561ff9b2d210.tar.gz tcl-4804a3fdec7c1461645097c4aff7561ff9b2d210.tar.bz2 | |
Cherrypick [d2143c14c1]: Eliminate the -bytestring option of [testutfnext]. No caller needs anything else.
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 856e9ea..1676bae 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6721,15 +6721,11 @@ TestUtfNextCmd( const char *p = tobetested; (void)dummy; - if (objc != 3 || strcmp(Tcl_GetString(objv[1]), "-bytestring")) { - if (objc != 2) { - Tcl_WrongNumArgs(interp, 1, objv, "?-bytestring? bytes"); - return TCL_ERROR; - } - bytes = Tcl_GetStringFromObj(objv[1], &numBytes); - } else { - bytes = (char *) Tcl_GetByteArrayFromObj(objv[2], &numBytes); + if (objc != 2) { + Tcl_WrongNumArgs(interp, 1, objv, "bytes"); + return TCL_ERROR; } + bytes = (char *) Tcl_GetByteArrayFromObj(objv[1], &numBytes); if (numBytes > (int)sizeof(buffer)-2) { Tcl_AppendResult(interp, "\"testutfnext\" can only handle 30 bytes", NULL); |