diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2010-03-04 23:42:52 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2010-03-04 23:42:52 (GMT) |
| commit | 38141d617214b6f1e79ccc8ec4efa5034ab7a4b8 (patch) | |
| tree | 7df7890a99597754e9b18126fc1ce888486901de /generic/tclOOInt.h | |
| parent | ca743ba0cba6edbcb1baaa9e254d419105ad3120 (diff) | |
| download | tcl-38141d617214b6f1e79ccc8ec4efa5034ab7a4b8.zip tcl-38141d617214b6f1e79ccc8ec4efa5034ab7a4b8.tar.gz tcl-38141d617214b6f1e79ccc8ec4efa5034ab7a4b8.tar.bz2 | |
Fix [Bug 2962664] by forcing oo::object deletion on oo::class deletion.
Diffstat (limited to 'generic/tclOOInt.h')
| -rw-r--r-- | generic/tclOOInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index dc52638..2103dc0 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOInt.h,v 1.15 2010/01/29 16:17:20 nijtmans Exp $ + * RCS: @(#) $Id: tclOOInt.h,v 1.16 2010/03/04 23:42:54 dkf Exp $ */ #ifndef TCL_OO_INTERNAL_H @@ -212,6 +212,10 @@ typedef struct Object { * instance of the class, and has had nothing * added that changes the dispatch chain (i.e. * no methods, mixins, or filters. */ +#define ROOT_CLASS 0x8000 /* Flag to say that this object is the root + * class of classes, and should be treated + * specially during teardown (and in a few + * other spots). */ /* * And the definition of a class. Note that every class also has an associated |