Tcl Source Code

Check-in [f27bd866ac]
Login

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

Overview
Comment:merge 8.6
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-branch
Files: files | file ages | folders
SHA3-256: f27bd866aca6135fab41757730191281773a4edc34d46a24e8dcef8301653887
User & Date: dgp 2018-03-11 12:22:00.936
Context
2018-03-14
22:39
Rebase the memleak work. check-in: 29b72b7167 user: dgp tags: memleak-87
2018-03-11
21:29
merge 8.6 check-in: 23c46c8cd1 user: dgp tags: core-8-branch
12:33
merge 8.7 check-in: 47549b459d user: dgp tags: trunk
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
2018-03-10
15:45
merge 8.6 check-in: e49b46e8e6 user: dgp tags: core-8-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclExecute.c.
4955
4956
4957
4958
4959
4960
4961






4962
4963
4964
4965
4966
4967
4968
	 */

#ifndef TCL_COMPILE_DEBUG
	if (*(pc+9) == INST_POP) {
	    NEXT_INST_F(10, 1, 0);
	}
#endif







	/* Decode index value operands. */

	/* 
	assert ( toIdx != TCL_INDEX_AFTER);
	 *
	 * Extra safety for legacy bytecodes:







>
>
>
>
>
>







4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
	 */

#ifndef TCL_COMPILE_DEBUG
	if (*(pc+9) == INST_POP) {
	    NEXT_INST_F(10, 1, 0);
	}
#endif

	/* Every range of an empty list is an empty list */
	if (objc == 0) {
	    TRACE_APPEND(("\n"));
	    NEXT_INST_F(9, 0, 0);
	}

	/* Decode index value operands. */

	/* 
	assert ( toIdx != TCL_INDEX_AFTER);
	 *
	 * Extra safety for legacy bytecodes:
Changes to generic/tclPkg.c.
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
	    }

	    /*
	     * 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);







<







1244
1245
1246
1247
1248
1249
1250

1251
1252
1253
1254
1255
1256
1257
	    }

	    /*
	     * 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);