diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-22 20:49:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-22 20:49:33 (GMT) |
| commit | 9c04c8ce98e2cb1c58d3be6d07bba35b24975443 (patch) | |
| tree | 6cec32ea2b52e4239e190956ed0e06d0ae0097c1 /generic/tclTest.c | |
| parent | 39736552afb862bfd716daf58321449acd40fc63 (diff) | |
| download | tcl-9c04c8ce98e2cb1c58d3be6d07bba35b24975443.zip tcl-9c04c8ce98e2cb1c58d3be6d07bba35b24975443.tar.gz tcl-9c04c8ce98e2cb1c58d3be6d07bba35b24975443.tar.bz2 | |
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 7a531b4..65599be 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7130,15 +7130,11 @@ TestUtfNextCmd( static const char tobetested[] = "\xFF\xFE\xF4\xF2\xF0\xEF\xE8\xE3\xE2\xE1\xE0\xC2\xC1\xC0\x82"; const char *p = tobetested; - 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 > sizeof(buffer)-2) { Tcl_AppendResult(interp, "\"testutfnext\" can only handle 30 bytes", NULL); |