Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge 8.6 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
f27bd866aca6135fab41757730191281 |
| User & Date: | dgp 2018-03-11 12:22:00 |
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
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); |