summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2017-03-29 19:16:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2017-03-29 19:16:32 (GMT)
commit860cdf23779fd870926c414d99004cd80bcd3fa1 (patch)
tree7860640334b407827cb96b3ad04c386516a1ab39 /generic
parent33d523b6274e003bc520d9d0497e24e85de7fae0 (diff)
downloadtcl-860cdf23779fd870926c414d99004cd80bcd3fa1.zip
tcl-860cdf23779fd870926c414d99004cd80bcd3fa1.tar.gz
tcl-860cdf23779fd870926c414d99004cd80bcd3fa1.tar.bz2
[900cb0284bc] Ensure that masking pseudo-methods used for export management are not introspectable directly. [cherrypick]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclOOCall.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c
index 8003345..ac0b94d 100644
--- a/generic/tclOOCall.c
+++ b/generic/tclOOCall.c
@@ -619,6 +619,7 @@ AddClassMethodNames(
int isWanted = (!(flags & PUBLIC_METHOD)
|| (mPtr->flags & PUBLIC_METHOD)) ? IN_LIST : 0;
+ isWanted |= (mPtr->typePtr == NULL ? NO_IMPLEMENTATION : 0);
Tcl_SetHashValue(hPtr, INT2PTR(isWanted));
} else if ((PTR2INT(Tcl_GetHashValue(hPtr)) & NO_IMPLEMENTATION)
&& mPtr->typePtr != NULL) {