summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-11-14 17:01:37 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-11-14 17:01:37 (GMT)
commitdef4c8ce29b135940f12eb623a5bebb5bafd67fa (patch)
treea494b9e5eafea3fc3c2c35ce9ddab6531622fa74 /generic
parenta8739c2b4b3261872135954ee11230e9d0a4a4bc (diff)
downloadtcl-def4c8ce29b135940f12eb623a5bebb5bafd67fa.zip
tcl-def4c8ce29b135940f12eb623a5bebb5bafd67fa.tar.gz
tcl-def4c8ce29b135940f12eb623a5bebb5bafd67fa.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')
-rw-r--r--generic/tclOOCall.c1
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;