diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-15 20:12:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-15 20:12:18 (GMT) |
commit | 8393f3aaad44f60614833b054b2aa554c20f6473 (patch) | |
tree | 56a8c25db6471334613549a103fd1278a5fff205 /generic/tclTest.c | |
parent | 53e02bac83ed7e43fb2c36f14b70a7b083de580f (diff) | |
download | tcl-8393f3aaad44f60614833b054b2aa554c20f6473.zip tcl-8393f3aaad44f60614833b054b2aa554c20f6473.tar.gz tcl-8393f3aaad44f60614833b054b2aa554c20f6473.tar.bz2 |
Use TclGetBytesFromObj() in testcases in stead of Tcl_GetByteArrayFromObj(), since we only want to handle proper bytearrays.
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index c872bd0..53ec544 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6836,7 +6836,10 @@ TestUtfNextCmd( return TCL_ERROR; } - bytes = (char *) Tcl_GetByteArrayFromObj(objv[1], &numBytes); + bytes = (char *) TclGetBytesFromObj(interp, objv[1], &numBytes); + if (bytes == NULL) { + return TCL_ERROR; + } if (objc == 3) { if (TCL_OK != Tcl_GetIntForIndex(interp, objv[2], numBytes, &offset)) { @@ -6882,7 +6885,10 @@ TestUtfPrevCmd( return TCL_ERROR; } - bytes = (char *) Tcl_GetByteArrayFromObj(objv[1], &numBytes); + bytes = (char *) TclGetBytesFromObj(interp, objv[1], &numBytes); + if (bytes == NULL) { + return TCL_ERROR; + } if (objc == 3) { if (TCL_OK != Tcl_GetIntForIndex(interp, objv[2], numBytes, &offset)) { |