diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-15 11:53:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-02-15 11:53:43 (GMT) |
| commit | a0d1a202239c64ab548f9d515bba530fb475d743 (patch) | |
| tree | 58ef89d3285974776896099a22e8bea82da7cef4 /generic/tclInt.h | |
| parent | 2a083e870cd9bd162468f535c9a9b724516353ea (diff) | |
| download | tcl-a0d1a202239c64ab548f9d515bba530fb475d743.zip tcl-a0d1a202239c64ab548f9d515bba530fb475d743.tar.gz tcl-a0d1a202239c64ab548f9d515bba530fb475d743.tar.bz2 | |
Fix [Bug 2950259] so that deleting an object by killing its namespace will
reliably call the object's destructor.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index f66fa33..55782ee 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -15,7 +15,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.461 2010/02/13 18:11:06 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.462 2010/02/15 11:53:44 dkf Exp $ */ #ifndef _TCLINT @@ -339,6 +339,12 @@ typedef struct Namespace { NamespacePathEntry *commandPathSourceList; /* Linked list of path entries that point to * this namespace. */ + Tcl_NamespaceDeleteProc *earlyDeleteProc; + /* Just like the deleteProc field (and called + * with the same clientData) but called at the + * start of the deletion process, so there is + * a chance for code to do stuff inside the + * namespace before deletion completes. */ } Namespace; /* |