diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-11-16 13:45:26 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-11-16 13:45:26 (GMT) |
| commit | fa3d7ed1784d69d0aa90486a9f53ac71a0aa1c41 (patch) | |
| tree | 2088bf5b86b36ff353530e56d29caddb63e5a53c /generic/tclOOMethod.c | |
| parent | f2d42d756e8aa1563d4f7336f2a3a9b9e3455b73 (diff) | |
| download | tcl-fa3d7ed1784d69d0aa90486a9f53ac71a0aa1c41.zip tcl-fa3d7ed1784d69d0aa90486a9f53ac71a0aa1c41.tar.gz tcl-fa3d7ed1784d69d0aa90486a9f53ac71a0aa1c41.tar.bz2 | |
Clear up a bunch of small issues found by Coverity analysis.
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 8da0fb3..3e64ba2 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -970,10 +970,8 @@ ProcedureMethodVarResolver( * Must not retain reference to resolved information. [Bug 3105999] */ - if (rPtr != NULL) { - rPtr->deleteProc(rPtr); - } - return (*varPtr? TCL_OK : TCL_CONTINUE); + rPtr->deleteProc(rPtr); + return (*varPtr ? TCL_OK : TCL_CONTINUE); } static Tcl_Var |