diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-05-22 10:11:59 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-05-22 10:11:59 (GMT) |
| commit | 0981127509bfc3c0a1d66077b75373c9c7cb3f7b (patch) | |
| tree | 7c291944c51d4de600bcaff1e36b66e556ccc97f /generic | |
| parent | 39f39163b75b167982429e186a1105255faac7c4 (diff) | |
| download | tcl-0981127509bfc3c0a1d66077b75373c9c7cb3f7b.zip tcl-0981127509bfc3c0a1d66077b75373c9c7cb3f7b.tar.gz tcl-0981127509bfc3c0a1d66077b75373c9c7cb3f7b.tar.bz2 | |
small amend to [1d16344c8cfaecc8], [7842f33a5cc5eed0]: don't need to invoke both functions in case if oPtr->selfCls is NULL
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclOOCall.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index bac6518..5fe20b3 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -925,12 +925,15 @@ AddSimpleChainToCallContext( } } } + if (!oPtr->selfCls) { + return foundPrivate; + } if (contextCls) { foundPrivate |= AddPrivatesFromClassChainToCallContext(oPtr->selfCls, contextCls, methodNameObj, cbPtr, doneFilters, flags, filterDecl); } - if (!blockedUnexported && oPtr->selfCls) { + if (!blockedUnexported) { foundPrivate |= AddSimpleClassChainToCallContext(oPtr->selfCls, methodNameObj, cbPtr, doneFilters, flags, filterDecl); } |