diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 06:35:02 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 06:35:02 (GMT) |
| commit | 1da12398f20df3780c9e7d34f0329f7d8cf8e2d1 (patch) | |
| tree | f54971fc331ec757d378e07caeeb1c5e335f45ff /generic/tclOOInt.h | |
| parent | 4322dab97e97256e52ded02368bdf657198ac90d (diff) | |
| download | tcl-1da12398f20df3780c9e7d34f0329f7d8cf8e2d1.zip tcl-1da12398f20df3780c9e7d34f0329f7d8cf8e2d1.tar.gz tcl-1da12398f20df3780c9e7d34f0329f7d8cf8e2d1.tar.bz2 | |
Streamline TclOO object cleanup routines.
Diffstat (limited to 'generic/tclOOInt.h')
| -rw-r--r-- | generic/tclOOInt.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 1eb787f..292293c 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -492,6 +492,10 @@ MODULE_SCOPE int TclNRNewObjectInstance(Tcl_Interp *interp, const char *nsNameStr, int objc, Tcl_Obj *const *objv, int skip, Tcl_Object *objectPtr); +MODULE_SCOPE Object * TclNewObjectInstanceCommon(Tcl_Interp *interp, + Class *classPtr, + const char *nameStr, + const char *nsNameStr); MODULE_SCOPE int TclOODefineSlots(Foundation *fPtr); MODULE_SCOPE void TclOODeleteChain(CallChain *callPtr); MODULE_SCOPE void TclOODeleteChainCache(Tcl_HashTable *tablePtr); |