diff options
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)) { |