diff options
Diffstat (limited to 'generic/tclOOCall.c')
| -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 f6bf416..a65ce5e 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -1781,6 +1781,9 @@ AddSimpleClassChainToCallContext( */ tailRecurse: + if (classPtr == NULL) { + return privateDanger; + } FOREACH(superPtr, classPtr->mixins) { privateDanger |= AddSimpleClassChainToCallContext(superPtr, methodNameObj, cbPtr, doneFilters, flags | TRAVERSED_MIXIN, |