diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-11-15 13:32:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-11-15 13:32:51 (GMT) |
| commit | bdc4a4970774a123700ec1bb3392d3a2f614fa0a (patch) | |
| tree | 7f3a7ab440e4221f4854ea933574c6f6b5fb3392 | |
| parent | 8b059d60dc3020deb2ab1d80e27ff78bbd9560cf (diff) | |
| parent | 47302d8e0457f8f002223bf6c5536f9226fbd59c (diff) | |
| download | tcl-bdc4a4970774a123700ec1bb3392d3a2f614fa0a.zip tcl-bdc4a4970774a123700ec1bb3392d3a2f614fa0a.tar.gz tcl-bdc4a4970774a123700ec1bb3392d3a2f614fa0a.tar.bz2 | |
See Itcl Bug [1b28657c0e]. Make methodNameType honor the Tcl_ObjType contract.
| -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; |