diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-10-28 21:10:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-10-28 21:10:57 (GMT) |
| commit | de136cc000b5f63af83bd877257be7a310f8a99d (patch) | |
| tree | 1c66fefae37804382af08ce8383b880944a3cc15 /generic | |
| parent | 82addec63cbef0ad9be3dae34d121b874d463dc4 (diff) | |
| download | tcl-de136cc000b5f63af83bd877257be7a310f8a99d.zip tcl-de136cc000b5f63af83bd877257be7a310f8a99d.tar.gz tcl-de136cc000b5f63af83bd877257be7a310f8a99d.tar.bz2 | |
* generic/tclLiteral.c: Backport fix for [Bug 2888044].
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclLiteral.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index 0a45f4d..a3c50c3 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.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: tclLiteral.c,v 1.33 2007/12/13 15:23:19 dgp Exp $ + * RCS: @(#) $Id: tclLiteral.c,v 1.33.2.1 2009/10/28 21:10:57 dgp Exp $ */ #include "tclInt.h" @@ -136,6 +136,7 @@ TclCleanupLiteralTable( objPtr->typePtr = NULL; typePtr->freeIntRepProc(objPtr); didOne = 1; + break; } else { entryPtr = nextPtr; } |