diff options
author | dgp <dgp@users.sourceforge.net> | 2019-11-15 20:20:42 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2019-11-15 20:20:42 (GMT) |
commit | 13ebaf6ca3645cf886c7fc686bdba2dcf339dbe6 (patch) | |
tree | d74323b0c62ae60fd6fa709ff14e68416c564b51 /generic/tclOOInt.h | |
parent | c44fa310d2d8952b3e6391e5c6691c5e857620db (diff) | |
parent | fc5da6d413b6981ebe7235f63d505f3290cc6c5c (diff) | |
download | tcl-13ebaf6ca3645cf886c7fc686bdba2dcf339dbe6.zip tcl-13ebaf6ca3645cf886c7fc686bdba2dcf339dbe6.tar.gz tcl-13ebaf6ca3645cf886c7fc686bdba2dcf339dbe6.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic/tclOOInt.h')
-rw-r--r-- | generic/tclOOInt.h | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index fd1b051..54f4476 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -213,14 +213,11 @@ typedef struct Object { * command. */ } 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 CLASS_GONE 4 /* Obsolete. Indicates that the class of this - * object has been deleted, and so the object - * should not attempt to remove itself from its - * class. */ +#define OBJECT_DESTRUCTING 1 /* Indicates that an object is being or has + * been destroyed */ +#define DESTRUCTOR_CALLED 2 /* Indicates that evaluation of destructor script for the + object has began */ +#define OO_UNUSED_4 4 /* No longer used. */ #define ROOT_OBJECT 0x1000 /* Flag to say that this object is the root of * the class hierarchy and should be treated * specially during teardown. */ @@ -587,6 +584,7 @@ MODULE_SCOPE Object * TclNewObjectInstanceCommon(Tcl_Interp *interp, const char *nameStr, const char *nsNameStr); MODULE_SCOPE int TclOODecrRefCount(Object *oPtr); +MODULE_SCOPE int TclOOObjectDestroyed(Object *oPtr); MODULE_SCOPE int TclOODefineSlots(Foundation *fPtr); MODULE_SCOPE void TclOODeleteChain(CallChain *callPtr); MODULE_SCOPE void TclOODeleteChainCache(Tcl_HashTable *tablePtr); |