diff options
| author | f.bonnet <f.bonnet> | 2017-11-05 16:41:11 (GMT) |
|---|---|---|
| committer | f.bonnet <f.bonnet> | 2017-11-05 16:41:11 (GMT) |
| commit | 6fff25ecbcc670141c504a6dd0555d01204f761e (patch) | |
| tree | d9ede0246c696a5b5b674b663a34bcd0fb3af7e9 | |
| parent | 0a8718312d30c1e90db63395404caa10c890d9a4 (diff) | |
| download | tcl-6fff25ecbcc670141c504a6dd0555d01204f761e.zip tcl-6fff25ecbcc670141c504a6dd0555d01204f761e.tar.gz tcl-6fff25ecbcc670141c504a6dd0555d01204f761e.tar.bz2 | |
Fixed stupid Tcl_DecrRefCount bug in TclCleanupChildren with normally terminated processes.
| -rw-r--r-- | generic/tclPipe.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c index bc760b6..13f4539 100644 --- a/generic/tclPipe.c +++ b/generic/tclPipe.c @@ -313,9 +313,9 @@ TclCleanupChildren( Tcl_SetObjErrorCode(interp, error); Tcl_SetObjResult(interp, msg); } + Tcl_DecrRefCount(error); + Tcl_DecrRefCount(msg); } - Tcl_DecrRefCount(error); - Tcl_DecrRefCount(msg); } /* |