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 | 5b71bf5ea8dddbe39503db1bd09b53d8e0798a2b (patch) | |
| tree | 7f3a7ab440e4221f4854ea933574c6f6b5fb3392 /generic | |
| parent | 0b9cb76206d26d688f118412400176d30e786785 (diff) | |
| parent | a5538d84c4ba0b646583a9051086addd8dc68426 (diff) | |
| download | tcl-5b71bf5ea8dddbe39503db1bd09b53d8e0798a2b.zip tcl-5b71bf5ea8dddbe39503db1bd09b53d8e0798a2b.tar.gz tcl-5b71bf5ea8dddbe39503db1bd09b53d8e0798a2b.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; |