diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 08:51:17 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 08:51:17 (GMT) |
commit | c3accd3a0fa312e985d39de608ebd4af947fbe31 (patch) | |
tree | f2135f1c7944f4127c9ba1508b7ecc0e2678bf86 | |
parent | b11f79e9229cb80e3b363c88ab199188960bebd9 (diff) | |
download | tcl-c3accd3a0fa312e985d39de608ebd4af947fbe31.zip tcl-c3accd3a0fa312e985d39de608ebd4af947fbe31.tar.gz tcl-c3accd3a0fa312e985d39de608ebd4af947fbe31.tar.bz2 |
Add code comments
-rw-r--r-- | generic/tclOOInfo.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c index 5d27ac9..7435fff 100644 --- a/generic/tclOOInfo.c +++ b/generic/tclOOInfo.c @@ -622,7 +622,11 @@ InfoObjectMethodsCmd( } } else if (oPtr->methodsPtr) { if (scope == -1) { + /* + * Handle legacy-mode matching. [Bug 36e5517a6850] + */ int scopeFilter = flag | TRUE_PRIVATE_METHOD; + FOREACH_HASH(namePtr, mPtr, oPtr->methodsPtr) { if (mPtr->typePtr && (mPtr->flags & scopeFilter) == flag) { Tcl_ListObjAppendElement(NULL, resultObj, namePtr); @@ -1388,6 +1392,9 @@ InfoClassMethodsCmd( FOREACH_HASH_DECLS; if (scope == -1) { + /* + * Handle legacy-mode matching. [Bug 36e5517a6850] + */ int scopeFilter = flag | TRUE_PRIVATE_METHOD; FOREACH_HASH(namePtr, mPtr, &clsPtr->classMethods) { |