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 | 434361c3c66494a5fb28d24bdf591b9ac803673c (patch) | |
| tree | 25ed06676e82d416b1f808f46f2c497f8ce5109d | |
| parent | 05b4cb2080209949f44fdf00e08a044584bffe73 (diff) | |
| download | tcl-434361c3c66494a5fb28d24bdf591b9ac803673c.zip tcl-434361c3c66494a5fb28d24bdf591b9ac803673c.tar.gz tcl-434361c3c66494a5fb28d24bdf591b9ac803673c.tar.bz2 | |
restore verification for deleted interp
| -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)); } |