diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-14 13:00:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-04-14 13:00:46 (GMT) |
| commit | f596ce75b4b1eeb5b09785d3faf012d4a4587f42 (patch) | |
| tree | 4078b1f733e2bb22b44c818b5618411601ebf791 /generic/tclOOCall.c | |
| parent | cbe925ed316598fcf5e87acdd7c1f8cf8b244f8b (diff) | |
| parent | 1bfdefdad35caeaff3dcdfea5f35c70373332bb0 (diff) | |
| download | tcl-f596ce75b4b1eeb5b09785d3faf012d4a4587f42.zip tcl-f596ce75b4b1eeb5b09785d3faf012d4a4587f42.tar.gz tcl-f596ce75b4b1eeb5b09785d3faf012d4a4587f42.tar.bz2 | |
merge trunk
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..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) { |