diff options
| author | hobbs <hobbs> | 2001-04-04 07:38:47 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-04-04 07:38:47 (GMT) |
| commit | 47f446dc9c71f395be5615960e4b263fbeaa0475 (patch) | |
| tree | 4356d0bb72da317ecf8b33f6674199b1fb71b3c3 | |
| parent | 1167313c7890c1e933a4f0f80a1c8650b91c24ce (diff) | |
| download | tcl-47f446dc9c71f395be5615960e4b263fbeaa0475.zip tcl-47f446dc9c71f395be5615960e4b263fbeaa0475.tar.gz tcl-47f446dc9c71f395be5615960e4b263fbeaa0475.tar.bz2 | |
* generic/tclListObj.c (Tcl_SetListObj): set objPtr->length = 0 in
empty object case to maintain sanctity of Tcl_Obj bytes/length
pairing. (porter) [Patch #405998]
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | generic/tclListObj.c | 3 |
2 files changed, 8 insertions, 3 deletions
@@ -1,5 +1,9 @@ 2001-04-03 Jeff Hobbs <jeffh@ActiveState.com> + * generic/tclListObj.c (Tcl_SetListObj): set objPtr->length = 0 in + empty object case to maintain sanctity of Tcl_Obj bytes/length + pairing. (porter) [Patch #405998] + * README: * mac/README: * win/README: @@ -16,7 +20,7 @@ * unix/tcl.spec: updated patchlevel information to 8.3.3 *************************************************************** - ** START OF ASYNC BACKPORT LOG (8.4aCVS 2001-04-02 -> 8.3.3) ** + ** START OF ASYNC BACKPORT LOG (8.4aCVS 2001-04-03 -> 8.3.3) ** *************************************************************** * doc/CrtChannel.3: @@ -433,7 +437,7 @@ the flags for the write side. [Bug: 6261] *************************************************************** - ** START OF ASYNC BACKPORT LOG (8.4aCVS 2001-04-02 -> 8.3.3) ** + ** END OF ASYNC BACKPORT LOG (8.4aCVS 2001-04-03 -> 8.3.3) ** *************************************************************** 2000-08-08 Jeff Hobbs <hobbs@ajubasolutions.com> diff --git a/generic/tclListObj.c b/generic/tclListObj.c index bb0aa2b..af64531 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclListObj.c,v 1.7 1999/08/10 22:45:11 redman Exp $ + * RCS: @(#) $Id: tclListObj.c,v 1.7.8.1 2001/04/04 07:38:47 hobbs Exp $ */ #include "tclInt.h" @@ -265,6 +265,7 @@ Tcl_SetListObj(objPtr, objc, objv) objPtr->typePtr = &tclListType; } else { objPtr->bytes = tclEmptyStringRep; + objPtr->length = 0; } } |