Tcl Source Code

Check-in [ea4f3ee751]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:remove unnecessary checks found by coverity
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ea4f3ee7512b36105dc8eb9d3bf70a66287f1ed1
User & Date: msofer 2015-07-30 22:56:57
Context
2015-07-31
00:01
fix typo found by Coverity; no effect on "most" platforms (is there anyone where it would matter?) check-in: df57190d7c user: msofer tags: trunk
2015-07-30
22:56
remove unnecessary checks found by coverity check-in: ea4f3ee751 user: msofer tags: trunk
18:57
remove self-assignment - found by Coverity check-in: b888764966 user: msofer tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCompCmds.c.

2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720

    if (collect != TCL_EACH_COLLECT) {
	PushStringLiteral(envPtr, "");
    }
    
    done:
    if (code == TCL_ERROR) {
	if (infoPtr) {
	    FreeForeachInfo(infoPtr);
	}
    }
    if (varListObj) {
	Tcl_DecrRefCount(varListObj);
    }
    return code;
}

/*
 *----------------------------------------------------------------------
 *
 * DupForeachInfo --







<
|
|
<
<
|
<







2700
2701
2702
2703
2704
2705
2706

2707
2708


2709

2710
2711
2712
2713
2714
2715
2716

    if (collect != TCL_EACH_COLLECT) {
	PushStringLiteral(envPtr, "");
    }
    
    done:
    if (code == TCL_ERROR) {

	FreeForeachInfo(infoPtr);
    }


    Tcl_DecrRefCount(varListObj);

    return code;
}

/*
 *----------------------------------------------------------------------
 *
 * DupForeachInfo --