diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:30:29 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:30:29 (GMT) |
| commit | 03a4436237ea997e7a2992ca80c54848cefdb213 (patch) | |
| tree | 3d954db33d5a0bb6c4e28ca3a187bccbb1b32d91 /generic/tclOOBasic.c | |
| parent | e52e074e4f028efd84c0fd8e54af331c55bf820c (diff) | |
| download | tcl-03a4436237ea997e7a2992ca80c54848cefdb213.zip tcl-03a4436237ea997e7a2992ca80c54848cefdb213.tar.gz tcl-03a4436237ea997e7a2992ca80c54848cefdb213.tar.bz2 | |
Streamline TclOO object cleanup routines.
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index b2c06a7..84f414d 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -340,11 +340,6 @@ TclOO_Object_Destroy( Object *oPtr = (Object *) Tcl_ObjectContextObject(context); CallContext *contextPtr; - if (objc != Tcl_ObjectContextSkippedArgs(context)) { - Tcl_WrongNumArgs(interp, Tcl_ObjectContextSkippedArgs(context), objv, - NULL); - return TCL_ERROR; - } if (!(oPtr->flags & DESTRUCTOR_CALLED)) { oPtr->flags |= DESTRUCTOR_CALLED; contextPtr = TclOOGetCallContext(oPtr, NULL, DESTRUCTOR, NULL); |