Tcl Source Code

Check-in [aa1a1096ac]
Login

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

Overview
Comment:Fix memory leak in Tcl_JoinObjCmd().
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | main
Files: files | file ages | folders
SHA3-256: aa1a1096acc5c02b688cbc3121552c8a8c8f1b31023608269a491cf7316b8f19
User & Date: pooryorick 2023-03-26 19:14:36
References
2023-03-28
16:32
Merge trunk [aa1a1096ac]: Fix memory leak in Tcl_JoinObjCmd(). check-in: 592e203d53 user: pooryorick tags: unchained
Context
2023-04-30
23:09
Partial sync-up with trunk. check-in: 82fe864420 user: griffin tags: tip-636-tcl9-644
2023-03-28
16:32
Merge trunk [aa1a1096ac]: Fix memory leak in Tcl_JoinObjCmd(). check-in: 592e203d53 user: pooryorick tags: unchained
2023-03-26
20:04
Mark: Valgrind reports no leaks. check-in: 3239df67e2 user: pooryorick tags: trunk, main
19:14
Fix memory leak in Tcl_JoinObjCmd(). check-in: aa1a1096ac user: pooryorick tags: trunk, main
17:22
Merge 8.7 check-in: 79cd3ac351 user: jan.nijtmans tags: trunk, main
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCmdIL.c.

2268
2269
2270
2271
2272
2273
2274

2275
2276
2277
2278
2279
2280
2281
		    Tcl_AppendObjToObj(resObjPtr, joinObjPtr);
		}
		valueObj = TclArithSeriesObjIndex(interp, objv[1], i);
		if (valueObj == NULL) {
		    return TCL_ERROR;
		}
		Tcl_AppendObjToObj(resObjPtr, valueObj);

	    }
	} else {
	    for (i = 0;  i < listLen;  i++) {
		if (i > 0) {

		    /*
		     * NOTE: This code is relying on Tcl_AppendObjToObj() **NOT**







>







2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
		    Tcl_AppendObjToObj(resObjPtr, joinObjPtr);
		}
		valueObj = TclArithSeriesObjIndex(interp, objv[1], i);
		if (valueObj == NULL) {
		    return TCL_ERROR;
		}
		Tcl_AppendObjToObj(resObjPtr, valueObj);
		Tcl_DecrRefCount(valueObj);
	    }
	} else {
	    for (i = 0;  i < listLen;  i++) {
		if (i > 0) {

		    /*
		     * NOTE: This code is relying on Tcl_AppendObjToObj() **NOT**