diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2004-07-21 00:42:37 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2004-07-21 00:42:37 (GMT) |
| commit | b7baa5cf544d8865daa4745ad9616caabfedd664 (patch) | |
| tree | 497cd829d08b8227765ef2485af55dd5733a6147 /generic/tclInt.h | |
| parent | 1588001f922d15b8d69b00506ab0260f81595b8f (diff) | |
| download | tcl-b7baa5cf544d8865daa4745ad9616caabfedd664.zip tcl-b7baa5cf544d8865daa4745ad9616caabfedd664.tar.gz tcl-b7baa5cf544d8865daa4745ad9616caabfedd664.tar.bz2 | |
2004-07-21 Kevin Kenny <kennykb@acm.org>
* generic/tclBasic.c (DeleteInterpProc):
* generic/tclLiteral.c (TclCleanupLiteralTable):
* generic/tclInt.h: added a TclCleanupLiteralTable function,
called from DeleteInterpProc, that frees internal representations
of shared literals early when an interpreter is being deleted.
This change corrects a number of memory mismanagement issues in
the cases where the internal representation of one literal
contains a reference to another, and avoids conditions such as
resolved variable names referring to procedure and namespace
contexts that no longer exist. [Bug 994838]
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 1526c60..f3db00e 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.168 2004/07/07 08:21:26 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.169 2004/07/21 00:42:38 kennykb Exp $ */ #ifndef _TCLINT @@ -1717,6 +1717,8 @@ EXTERN int TclArraySet _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj)); EXTERN int TclCheckBadOctal _ANSI_ARGS_((Tcl_Interp *interp, CONST char *value)); +EXTERN void TclCleanupLiteralTable _ANSI_ARGS_(( + Tcl_Interp* interp, LiteralTable* tablePtr )); EXTERN void TclExpandTokenArray _ANSI_ARGS_(( Tcl_Parse *parsePtr)); EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp *interp, |