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 | ea1423a2ab86dad1c49f30cc0f74e4af9ff2b882 (patch) | |
| tree | 6714fa4dcebafb49d59eeb81aaa7b1c2bc6c4f9b | |
| parent | 7cdd87e4f1acfd4605512f4b40ffb8b22034b314 (diff) | |
| parent | 5b71bf5ea8dddbe39503db1bd09b53d8e0798a2b (diff) | |
| download | tcl-ea1423a2ab86dad1c49f30cc0f74e4af9ff2b882.zip tcl-ea1423a2ab86dad1c49f30cc0f74e4af9ff2b882.tar.gz tcl-ea1423a2ab86dad1c49f30cc0f74e4af9ff2b882.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; |