diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-11-14 17:01:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-11-14 17:01:37 (GMT) |
| commit | def4c8ce29b135940f12eb623a5bebb5bafd67fa (patch) | |
| tree | a494b9e5eafea3fc3c2c35ce9ddab6531622fa74 /generic/tclOOCall.c | |
| parent | a8739c2b4b3261872135954ee11230e9d0a4a4bc (diff) | |
| download | tcl-def4c8ce29b135940f12eb623a5bebb5bafd67fa.zip tcl-def4c8ce29b135940f12eb623a5bebb5bafd67fa.tar.gz tcl-def4c8ce29b135940f12eb623a5bebb5bafd67fa.tar.bz2 | |
See Itcl Bug [1b28657c0e]. The methodNameType fails to honor the Tcl_ObjType
contract. Need dkf review on suitability of this fix.
Diffstat (limited to 'generic/tclOOCall.c')
| -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..814fb0b 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -179,6 +179,7 @@ StashCallChain( CallChain *callPtr) { callPtr->refCount++; + Tcl_GetString(objPtr); TclFreeIntRep(objPtr); objPtr->typePtr = &methodNameType; objPtr->internalRep.twoPtrValue.ptr1 = callPtr; |