summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2016-11-15 13:33:35 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2016-11-15 13:33:35 (GMT)
commited830e98b74fe64225572a43a9b67e99c2b4d65c (patch)
tree6714fa4dcebafb49d59eeb81aaa7b1c2bc6c4f9b
parentc5e39e03c3b4dfb512994f9c3501601f7ab29150 (diff)
parentbdc4a4970774a123700ec1bb3392d3a2f614fa0a (diff)
downloadtcl-ed830e98b74fe64225572a43a9b67e99c2b4d65c.zip
tcl-ed830e98b74fe64225572a43a9b67e99c2b4d65c.tar.gz
tcl-ed830e98b74fe64225572a43a9b67e99c2b4d65c.tar.bz2
See Itcl Bug [1b28657c0e]. Make methodNameType honor the Tcl_ObjType contract.
-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..8003345 100644
--- a/generic/tclOOCall.c
+++ b/generic/tclOOCall.c
@@ -179,6 +179,7 @@ StashCallChain(
CallChain *callPtr)
{
callPtr->refCount++;
+ TclGetString(objPtr);
TclFreeIntRep(objPtr);
objPtr->typePtr = &methodNameType;
objPtr->internalRep.twoPtrValue.ptr1 = callPtr;