Tcl Source Code

Check-in [70bb82f088]
Login

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

Overview
Comment:plug memleak of constructed package requirement.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 70bb82f088576412c9afde3b6488754eab7464543eee859a7fc3c6469a0cb8e3
User & Date: dgp 2018-03-11 12:14:05.210
Context
2018-03-11
21:15
plug memleaks check-in: b087783022 user: dgp tags: core-8-6-branch
18:08
Attempt at providing the missing instance squelcher. check-in: a8a64455ae user: dgp tags: memleak
12:22
merge 8.6 check-in: f27bd866ac user: dgp tags: core-8-branch
12:14
plug memleak of constructed package requirement. check-in: 70bb82f088 user: dgp tags: core-8-6-branch
12:13
Screen out empty list value so that assertions are true. check-in: c9318a708c user: dgp tags: core-8-6-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclPkg.c.
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
	    }

	    /*
	     * Create a new-style requirement for the exact version.
	     */

	    ov = Tcl_NewStringObj(version, -1);
	    Tcl_IncrRefCount(ov);
	    Tcl_AppendStringsToObj(ov, "-", version, NULL);
	    version = NULL;
	    argv3 = TclGetString(objv[3]);
	    Tcl_IncrRefCount(objv[3]);

	    objvListPtr = Tcl_NewListObj(0, NULL);
	    Tcl_IncrRefCount(objvListPtr);







<







1121
1122
1123
1124
1125
1126
1127

1128
1129
1130
1131
1132
1133
1134
	    }

	    /*
	     * Create a new-style requirement for the exact version.
	     */

	    ov = Tcl_NewStringObj(version, -1);

	    Tcl_AppendStringsToObj(ov, "-", version, NULL);
	    version = NULL;
	    argv3 = TclGetString(objv[3]);
	    Tcl_IncrRefCount(objv[3]);

	    objvListPtr = Tcl_NewListObj(0, NULL);
	    Tcl_IncrRefCount(objvListPtr);