diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-11-14 19:22:46 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-11-14 19:22:46 (GMT) |
| commit | 08263bbcbd6376f3df6fe6ecdecab40bf44634dc (patch) | |
| tree | 25ed06676e82d416b1f808f46f2c497f8ce5109d /generic/tclOOMethod.c | |
| parent | 587439fdee10e13add6010aeefb25d05677a5d52 (diff) | |
| download | tcl-08263bbcbd6376f3df6fe6ecdecab40bf44634dc.zip tcl-08263bbcbd6376f3df6fe6ecdecab40bf44634dc.tar.gz tcl-08263bbcbd6376f3df6fe6ecdecab40bf44634dc.tar.bz2 | |
restore verification for deleted interp
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index fbd23c0..0c5f4bb 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -675,7 +675,9 @@ InvokeProcedureMethod( * the next thing in the chain. */ - if (!((CallContext *)context)->oPtr->namespacePtr) { + if (!((CallContext *)context)->oPtr->namespacePtr || + Tcl_InterpDeleted(interp) + ) { return TclNRObjectContextInvokeNext(interp, context, objc, objv, Tcl_ObjectContextSkippedArgs(context)); } |