diff options
| author | hobbs <hobbs> | 1999-10-21 02:16:21 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-10-21 02:16:21 (GMT) |
| commit | 255b6f78419e20a2954baaab97b26182a4b27c76 (patch) | |
| tree | 4f65ebbb53559917f7b5085067635040cae62b80 /generic/tclCmdMZ.c | |
| parent | d5139c797f55bb15e8fe74bdd46ba58a6930794b (diff) | |
| download | tcl-255b6f78419e20a2954baaab97b26182a4b27c76.zip tcl-255b6f78419e20a2954baaab97b26182a4b27c76.tar.gz tcl-255b6f78419e20a2954baaab97b26182a4b27c76.tar.bz2 | |
* unix/tclUnixNotfy.c: fixed event/io threading problems by
making triggerPipe non-blocking
* library/tcltest1.0/tcltest.tcl:
* generic/tclThreadTest.c: fixed mem leaks in threads
* generic/tclResult.c: fixed Tcl_AppendResultVA so it only
iterates once over the va_list (avoiding a memcpy of it,
which is not portable).
* generic/regc_color.c: fixed mem leak and assertion, from HS
* generic/tclCompile.c: removed savedChar trick that appeared to
be causing a segv when the literal table was released
* tests/string.test:
* generic/tclCmdMZ.c: fixed [string index] to return ByteArrayObj
when indexing into one (test case string-5.16) [Bug: 2871]
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 8758660..bd00b56 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdMZ.c,v 1.20 1999/09/21 04:20:40 hobbs Exp $ + * RCS: @(#) $Id: tclCmdMZ.c,v 1.21 1999/10/21 02:16:21 hobbs Exp $ */ #include "tclInt.h" @@ -1109,7 +1109,7 @@ Tcl_StringObjCmd(dummy, interp, objc, objv) &index) != TCL_OK) { return TCL_ERROR; } - Tcl_SetStringObj(resultPtr, &string1[index], 1); + Tcl_SetByteArrayObj(resultPtr, &string1[index], 1); } else { string1 = Tcl_GetStringFromObj(objv[2], &length1); |