diff options
| author | dgp <dgp@noemail.net> | 2009-10-28 21:10:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2009-10-28 21:10:57 (GMT) |
| commit | c5e7c28470ea6821726824bac1ddddcd20812683 (patch) | |
| tree | 1c66fefae37804382af08ce8383b880944a3cc15 /generic/tclLiteral.c | |
| parent | d2f715191da48187c1b0d871d2d7de124585cf3d (diff) | |
| download | tcl-c5e7c28470ea6821726824bac1ddddcd20812683.zip tcl-c5e7c28470ea6821726824bac1ddddcd20812683.tar.gz tcl-c5e7c28470ea6821726824bac1ddddcd20812683.tar.bz2 | |
* generic/tclLiteral.c: Backport fix for [Bug 2888044].
FossilOrigin-Name: c853fcb26684288fa05ec6956298934005315728
Diffstat (limited to 'generic/tclLiteral.c')
| -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; } |