diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2015-12-21 11:09:17 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2015-12-21 11:09:17 (GMT) |
| commit | ffc1d2a8ba79e51264d9056314c8b23294a44443 (patch) | |
| tree | 0c1e3d809cba56f73a0ee0190f3c4fe42e970a52 | |
| parent | 0fe8e0c7817ae67e9052a4c868977bc237536308 (diff) | |
| download | tcl-ffc1d2a8ba79e51264d9056314c8b23294a44443.zip tcl-ffc1d2a8ba79e51264d9056314c8b23294a44443.tar.gz tcl-ffc1d2a8ba79e51264d9056314c8b23294a44443.tar.bz2 | |
fix handling of string interface - segfault that did not happen under varlgrind or gdb (?)
| -rw-r--r-- | generic/tclResult.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index 9c22217..a1f307c 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -339,7 +339,7 @@ Tcl_SetResult( if (freeProc) { if (freeProc == TCL_DYNAMIC) { ckfree(result); - } else { + } else if ((freeProc != TCL_STATIC) && (freeProc != TCL_VOLATILE)) { freeProc(result); } } |