diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-10-24 08:38:17 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-10-24 08:38:17 (GMT) |
commit | fada61905269aa299f85ae2a25a2786b6cbe4053 (patch) | |
tree | 91ea1cf72decde7d4b6d41759a78b2e0d45f582e | |
parent | 47a07276958baa54a3f95b350eb941adfdc7e9d4 (diff) | |
download | tcl-fada61905269aa299f85ae2a25a2786b6cbe4053.zip tcl-fada61905269aa299f85ae2a25a2786b6cbe4053.tar.gz tcl-fada61905269aa299f85ae2a25a2786b6cbe4053.tar.bz2 |
[fc1409fc91]: TclOO method with non-literal value for body argument causes segmentation fault
-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 9c49caa..e8fad82 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); /* |