diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-11 08:33:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-11 08:33:04 (GMT) |
| commit | 089b9970444fbf3410572b30650c80fc75bdda82 (patch) | |
| tree | d55677f792c046ae4bf64ce7a09e29ff3ee8a6c5 /generic/tclExecute.c | |
| parent | b61dbff448d4ccad302a205fa518de3af09fa7ea (diff) | |
| parent | 50199a530295ebd023b19ba7a96c17a2a0a99b66 (diff) | |
| download | tcl-089b9970444fbf3410572b30650c80fc75bdda82.zip tcl-089b9970444fbf3410572b30650c80fc75bdda82.tar.gz tcl-089b9970444fbf3410572b30650c80fc75bdda82.tar.bz2 | |
TIP #481 implementation: Tcl_GetStringFromObj() with size_t length parameter
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index d5f843b..3a07a6c 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5322,7 +5322,7 @@ TEBCresume( TclNewObj(objResultPtr); } else if (TclIsPureByteArray(valuePtr)) { objResultPtr = Tcl_NewByteArrayObj( - Tcl_GetByteArrayFromObj(valuePtr, NULL)+index, 1); + TclGetByteArrayFromObj(valuePtr, NULL)+index, 1); } else if (valuePtr->bytes && length == valuePtr->length) { objResultPtr = Tcl_NewStringObj((const char *) valuePtr->bytes+index, 1); |