diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-10-28 21:03:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-10-28 21:03:19 (GMT) |
| commit | 78dd3b3955f6c2f710b83b1cbdde2aa96be2aecb (patch) | |
| tree | b6f1fa450bcbc018d7fef70d8035765fd66e7d04 /generic/tclLiteral.c | |
| parent | 1968b054ce6cb77985b7fabcad41ec530209fad5 (diff) | |
| download | tcl-78dd3b3955f6c2f710b83b1cbdde2aa96be2aecb.zip tcl-78dd3b3955f6c2f710b83b1cbdde2aa96be2aecb.tar.gz tcl-78dd3b3955f6c2f710b83b1cbdde2aa96be2aecb.tar.bz2 | |
* generic/tclLiteral.c: Fixed 2 bugs reported in [Bug 2888044].
* tests/info.test: First, as noted in the comments of the
TclCleanupLiteralTable routine, since the teardown of the intrep
of one Tcl_Obj can cause the teardown of others in the same table,
the full table cleanup must be done with care, but the code did not
contain the same care demanded in the comment. Second, recent
additions to the info.test file had poor hygiene, leaving an array
variable ::a lying around, which breaks later interp.test tests during
a -singleproc 1 run of the test suite.
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 5d4974a..10a18f8 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.36 2009/07/22 12:00:42 nijtmans Exp $ + * RCS: @(#) $Id: tclLiteral.c,v 1.37 2009/10/28 21:03:19 dgp Exp $ */ #include "tclInt.h" @@ -136,6 +136,7 @@ TclCleanupLiteralTable( objPtr->typePtr = NULL; typePtr->freeIntRepProc(objPtr); didOne = 1; + break; } else { entryPtr = nextPtr; } |