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 | c6e6569dfeb8eeb4bf2558bb370a16eb861065f0 (patch) | |
| tree | a799b37ad6f994a50710c7b7156349d33fa8167d | |
| parent | bc7e4c5d682aa821d2007ffcbf404b59e3474542 (diff) | |
| download | tcl-c6e6569dfeb8eeb4bf2558bb370a16eb861065f0.zip tcl-c6e6569dfeb8eeb4bf2558bb370a16eb861065f0.tar.gz tcl-c6e6569dfeb8eeb4bf2558bb370a16eb861065f0.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); |