diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-05-22 10:50:01 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-05-22 10:50:01 (GMT) |
| commit | e6919d022e5a1fa46781b0ea71ada683c5ee5e85 (patch) | |
| tree | aa75a3fdcc1b42a3e6681895ebad4ec22caaddb3 | |
| parent | d38f3d8098665a7836dccbede4ad7ec4bbe8d9b1 (diff) | |
| download | tcl-e6919d022e5a1fa46781b0ea71ada683c5ee5e85.zip tcl-e6919d022e5a1fa46781b0ea71ada683c5ee5e85.tar.gz tcl-e6919d022e5a1fa46781b0ea71ada683c5ee5e85.tar.bz2 | |
amend to [de08cf03235f3ce9], [7842f33a5cc5eed0], stop tail recursion in AddSimpleClassChainToCallContext if classPtr is NULL
| -rw-r--r-- | generic/tclOOCall.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 5fe20b3..14e747c 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -1774,6 +1774,9 @@ AddSimpleClassChainToCallContext( */ tailRecurse: + if (classPtr == NULL) { + return privateDanger; + } FOREACH(superPtr, classPtr->mixins) { privateDanger |= AddSimpleClassChainToCallContext(superPtr, methodNameObj, cbPtr, doneFilters, flags | TRAVERSED_MIXIN, |