diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-11-15 13:33:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-11-15 13:33:35 (GMT) |
| commit | ed830e98b74fe64225572a43a9b67e99c2b4d65c (patch) | |
| tree | 6714fa4dcebafb49d59eeb81aaa7b1c2bc6c4f9b /generic | |
| parent | c5e39e03c3b4dfb512994f9c3501601f7ab29150 (diff) | |
| parent | bdc4a4970774a123700ec1bb3392d3a2f614fa0a (diff) | |
| download | tcl-ed830e98b74fe64225572a43a9b67e99c2b4d65c.zip tcl-ed830e98b74fe64225572a43a9b67e99c2b4d65c.tar.gz tcl-ed830e98b74fe64225572a43a9b67e99c2b4d65c.tar.bz2 | |
See Itcl Bug [1b28657c0e]. Make methodNameType honor the Tcl_ObjType contract.
Diffstat (limited to 'generic')
| -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..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; |