diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-13 15:37:42 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-13 15:37:42 (GMT) |
commit | 631a3b78cb6c86df02039a5cd711ac322b932477 (patch) | |
tree | 811eba817daefc567e9d3e3d1897b4f76da718e1 /generic/tclTest.c | |
parent | ae556e220331b4da078e1a36ed7d80c43c867bb5 (diff) | |
download | tcl-631a3b78cb6c86df02039a5cd711ac322b932477.zip tcl-631a3b78cb6c86df02039a5cd711ac322b932477.tar.gz tcl-631a3b78cb6c86df02039a5cd711ac322b932477.tar.bz2 |
Slightly simpler test for empty string, still covering all cases. Also prepare testpurebytesobj for strings >2G
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 0e34af7..b39ef0a 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -2085,7 +2085,7 @@ TestevalexObjCmd( flags = 0; if (objc == 3) { - const char *global = Tcl_GetStringFromObj(objv[2], &length); + const char *global = Tcl_GetString(objv[2]); if (strcmp(global, "global") != 0) { Tcl_AppendResult(interp, "bad value \"", global, "\": must be global", NULL); @@ -5001,7 +5001,8 @@ TestpurebytesobjObjCmd( */ memset(&objPtr->internalRep, 0, sizeof(objPtr->internalRep)); if (objc == 2) { - const char *s = Tcl_GetStringFromObj(objv[1], &objPtr->length); + const char *s = Tcl_GetString(objv[1]); + objPtr->length = objv[1]->length; objPtr->bytes = ckalloc(objPtr->length + 1); memcpy(objPtr->bytes, s, objPtr->length); objPtr->bytes[objPtr->length] = 0; |