diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2015-07-30 22:56:57 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2015-07-30 22:56:57 (GMT) |
| commit | 96a9d808347805b5cf8714c5d9bad555aa8da1ce (patch) | |
| tree | 7e15c7bb82d9f50e30ebbcb090a4de115f86e99c /generic/tclCompCmds.c | |
| parent | f77a9845208ea599acf7d22fb07acac929bc1b4c (diff) | |
| download | tcl-96a9d808347805b5cf8714c5d9bad555aa8da1ce.zip tcl-96a9d808347805b5cf8714c5d9bad555aa8da1ce.tar.gz tcl-96a9d808347805b5cf8714c5d9bad555aa8da1ce.tar.bz2 | |
remove unnecessary checks found by coverity
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 6a22a30..041694f 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2704,13 +2704,9 @@ CompileEachloopCmd( done: if (code == TCL_ERROR) { - if (infoPtr) { - FreeForeachInfo(infoPtr); - } - } - if (varListObj) { - Tcl_DecrRefCount(varListObj); + FreeForeachInfo(infoPtr); } + Tcl_DecrRefCount(varListObj); return code; } |