diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 17:02:57 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 17:02:57 (GMT) |
commit | b45bc74fab81cc13e68554ebe15b2b51112f2121 (patch) | |
tree | 8912c2babcc76d9516cfa4e74b1dd641258ad6e2 /generic/tclStringObj.c | |
parent | 92c6a7008144e86f2fb207c03aadae1fd767f678 (diff) | |
parent | 01a48e2369782044a30d922c5f8ed52262ef4fcd (diff) | |
download | tcl-b45bc74fab81cc13e68554ebe15b2b51112f2121.zip tcl-b45bc74fab81cc13e68554ebe15b2b51112f2121.tar.gz tcl-b45bc74fab81cc13e68554ebe15b2b51112f2121.tar.bz2 |
Merge 8.6
Diffstat (limited to 'generic/tclStringObj.c')
-rw-r--r-- | generic/tclStringObj.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index da28e62..d3f0024 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -735,7 +735,8 @@ Tcl_GetRange( last = length - 1; } if (last < first) { - return Tcl_NewObj(); + TclNewObj(newObjPtr); + return newObjPtr; } return Tcl_NewByteArrayObj(bytes + first, last - first + 1); } @@ -760,9 +761,10 @@ Tcl_GetRange( last = stringPtr->numChars - 1; } if (last < first) { - return Tcl_NewObj(); + TclNewObj(newObjPtr); + return newObjPtr; } - newObjPtr = Tcl_NewStringObj(objPtr->bytes + first, last-first+1); + newObjPtr = Tcl_NewStringObj(objPtr->bytes + first, last - first + 1); /* * Since we know the char length of the result, store it. @@ -780,7 +782,8 @@ Tcl_GetRange( last = stringPtr->numChars - 1; } if (last < first) { - return Tcl_NewObj(); + TclNewObj(newObjPtr); + return newObjPtr; } #if TCL_UTF_MAX <= 3 /* See: bug [11ae2be95dac9417] */ |