diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2015-08-01 19:00:39 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2015-08-01 19:00:39 (GMT) |
| commit | 6d2f884f461d22c6f2fef2ef38f299532fc16bb4 (patch) | |
| tree | a9bf5e28d0ebad3a00a4d9877185d56e947475b3 /generic/tclProc.c | |
| parent | 7239216affd24b23526c606fe0cfed2d41c7305b (diff) | |
| download | tcl-6d2f884f461d22c6f2fef2ef38f299532fc16bb4.zip tcl-6d2f884f461d22c6f2fef2ef38f299532fc16bb4.tar.gz tcl-6d2f884f461d22c6f2fef2ef38f299532fc16bb4.tar.bz2 | |
explicitly ignore Tcl_PushCallFrame and TclPushStackFrame return value - it is always TCL_OK. Inconsistency found by coverity (CID 1251197)
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 7bf63c2..02bda51 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1642,12 +1642,9 @@ TclPushProcCallFrame( */ framePtrPtr = &framePtr; - result = TclPushStackFrame(interp, (Tcl_CallFrame **) framePtrPtr, + (void) TclPushStackFrame(interp, (Tcl_CallFrame **) framePtrPtr, (Tcl_Namespace *) nsPtr, (isLambda? (FRAME_IS_PROC|FRAME_IS_LAMBDA) : FRAME_IS_PROC)); - if (result != TCL_OK) { - return result; - } framePtr->objc = objc; framePtr->objv = objv; @@ -2055,7 +2052,7 @@ TclProcCompileProc( procPtr->numCompiledLocals = procPtr->numArgs; } - TclPushStackFrame(interp, &framePtr, (Tcl_Namespace *) nsPtr, + (void) TclPushStackFrame(interp, &framePtr, (Tcl_Namespace *) nsPtr, /* isProcCallFrame */ 0); /* |