diff options
author | dgp <dgp@users.sourceforge.net> | 2016-11-14 17:01:37 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-11-14 17:01:37 (GMT) |
commit | addd1694e0e8b6c676276f77f738d9902576688b (patch) | |
tree | a494b9e5eafea3fc3c2c35ce9ddab6531622fa74 /generic/tclOOCall.c | |
parent | ae6e14e33cd86d42f7445e6b4a7b7f9658d8c007 (diff) | |
download | tcl-addd1694e0e8b6c676276f77f738d9902576688b.zip tcl-addd1694e0e8b6c676276f77f738d9902576688b.tar.gz tcl-addd1694e0e8b6c676276f77f738d9902576688b.tar.bz2 |
See Itcl Bug [1b28657c0e]. The methodNameType fails to honor the Tcl_ObjType
contract. Need dkf review on suitability of this fix.
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 1797760..814fb0b 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -179,6 +179,7 @@ StashCallChain( CallChain *callPtr) { callPtr->refCount++; + Tcl_GetString(objPtr); TclFreeIntRep(objPtr); objPtr->typePtr = &methodNameType; objPtr->internalRep.twoPtrValue.ptr1 = callPtr; |