diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-10-24 14:11:16 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-10-24 14:11:16 (GMT) |
commit | 9306fa604ca63f8626f859c1f6cb5154a659e504 (patch) | |
tree | 46d22a768c652511d3fc5cfcc55bf14fa3bd0212 /generic | |
parent | 745b43f627503964c4fa557afcc261ce1aaa160e (diff) | |
download | tcl-9306fa604ca63f8626f859c1f6cb5154a659e504.zip tcl-9306fa604ca63f8626f859c1f6cb5154a659e504.tar.gz tcl-9306fa604ca63f8626f859c1f6cb5154a659e504.tar.bz2 |
Cherrypick: [fc1409fc91] Method cloning needs to be careful with body representations.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclOOMethod.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 99a8bfc..8da0fb3 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1314,6 +1314,7 @@ CloneProcedureMethod( */ bodyObj = Tcl_DuplicateObj(pmPtr->procPtr->bodyPtr); + Tcl_GetString(bodyObj); TclFreeIntRep(bodyObj); /* |