diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-03-27 13:02:22 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-03-27 13:02:22 (GMT) |
| commit | 0c0b1e14981ac6b1b9d1ba4f5f423b62a7f07cdb (patch) | |
| tree | f220dd7bcc08724b00fb9400fcb1df73b3b50bdc /generic/tclOOCall.c | |
| parent | 920aa8280f7ad6756c06787903f8ee5b9a5497a3 (diff) | |
| download | tcl-0c0b1e14981ac6b1b9d1ba4f5f423b62a7f07cdb.zip tcl-0c0b1e14981ac6b1b9d1ba4f5f423b62a7f07cdb.tar.gz tcl-0c0b1e14981ac6b1b9d1ba4f5f423b62a7f07cdb.tar.bz2 | |
Correct this use of isWanted to ensure NO_IMPLEMENTATION methods are not listed (bug [900cb0284bc])
Diffstat (limited to 'generic/tclOOCall.c')
| -rw-r--r-- | generic/tclOOCall.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 8003345..c861eb9 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -618,6 +618,7 @@ AddClassMethodNames( if (isNew) { 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) |