summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2015-04-04 11:47:53 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2015-04-04 11:47:53 (GMT)
commit5ca69cacce4e0c066a7270d88ac64d9ba7097ef0 (patch)
treea799b37ad6f994a50710c7b7156349d33fa8167d
parent6e0592b7292f7fa9657859a9717ef41d6f0013fc (diff)
downloadtcl-5ca69cacce4e0c066a7270d88ac64d9ba7097ef0.zip
tcl-5ca69cacce4e0c066a7270d88ac64d9ba7097ef0.tar.gz
tcl-5ca69cacce4e0c066a7270d88ac64d9ba7097ef0.tar.bz2
Don't fetch values we don't need.
-rw-r--r--generic/tclExecute.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 4790ba3..f2f475a 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5591,7 +5591,7 @@ TEBCresume(
TclNewObj(objResultPtr);
} else if (TclIsPureByteArray(valuePtr)) {
objResultPtr = Tcl_NewByteArrayObj(
- Tcl_GetByteArrayFromObj(valuePtr, &length)+index, 1);
+ Tcl_GetByteArrayFromObj(valuePtr, NULL)+index, 1);
} else if (valuePtr->bytes && length == valuePtr->length) {
objResultPtr = Tcl_NewStringObj((const char *)
valuePtr->bytes+index, 1);