diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-13 16:02:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-13 16:02:04 (GMT) |
| commit | e219c593e114c0c7db37eed91c47da181103217c (patch) | |
| tree | ad45bff401de032a25f0d36e397c276f054a7a5e /generic/tclOOCall.c | |
| parent | 094cbec1c7d756626ebe0c65c873165a33dc171d (diff) | |
| download | tcl-e219c593e114c0c7db37eed91c47da181103217c.zip tcl-e219c593e114c0c7db37eed91c47da181103217c.tar.gz tcl-e219c593e114c0c7db37eed91c47da181103217c.tar.bz2 | |
and another
Diffstat (limited to 'generic/tclOOCall.c')
| -rw-r--r-- | generic/tclOOCall.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 0a265e5..d660c58 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -966,7 +966,7 @@ TclOOGetCallContext( callPtr->refCount++; goto returnContext; } - Tcl_FreeIntRep(cacheInThisObj); + Tcl_StoreIntRep(cacheInThisObj, &methodNameType, NULL); } if (oPtr->flags & USE_CLASS_CACHE) { |