diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2015-04-04 11:47:53 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2015-04-04 11:47:53 (GMT) |
| commit | 5ca69cacce4e0c066a7270d88ac64d9ba7097ef0 (patch) | |
| tree | a799b37ad6f994a50710c7b7156349d33fa8167d | |
| parent | 6e0592b7292f7fa9657859a9717ef41d6f0013fc (diff) | |
| download | tcl-5ca69cacce4e0c066a7270d88ac64d9ba7097ef0.zip tcl-5ca69cacce4e0c066a7270d88ac64d9ba7097ef0.tar.gz tcl-5ca69cacce4e0c066a7270d88ac64d9ba7097ef0.tar.bz2 | |
Don't fetch values we don't need.
| -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 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); |