diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2010-01-28 10:25:03 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2010-01-28 10:25:03 (GMT) |
| commit | c72c3326c1e3f79ad0e0c8de0b51117c0f6a5ec7 (patch) | |
| tree | 5b3c218fe68fcb9e058cf40de629094ec43f22d5 /generic/tclOOInt.h | |
| parent | 7b5e9cb7e526b3a7ac83e6d786e04dd6d9f05ee3 (diff) | |
| download | tcl-c72c3326c1e3f79ad0e0c8de0b51117c0f6a5ec7.zip tcl-c72c3326c1e3f79ad0e0c8de0b51117c0f6a5ec7.tar.gz tcl-c72c3326c1e3f79ad0e0c8de0b51117c0f6a5ec7.tar.bz2 | |
Improvements to destructor handling.
Stop crashes from odd destruction routes.
Diffstat (limited to 'generic/tclOOInt.h')
| -rw-r--r-- | generic/tclOOInt.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 86bc9d3..aea18e2 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.13 2009/12/21 23:25:39 nijtmans Exp $ + * RCS: @(#) $Id: tclOOInt.h,v 1.14 2010/01/28 10:25:05 dkf Exp $ */ #ifndef TCL_OO_INTERNAL_H @@ -199,6 +199,8 @@ typedef struct Object { #define OBJECT_DELETED 1 /* Flag to say that an object has been * destroyed. */ +#define DESTRUCTOR_CALLED 2 /* Flag to say that the destructor has been + * called. */ #define ROOT_OBJECT 0x1000 /* Flag to say that this object is the root of * the class hierarchy and should be treated * specially during teardown. */ |