Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Screen out empty list value so that assertions are true. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-6-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
c9318a708c667d4bbdab930e128e1590 |
| User & Date: | dgp 2018-03-11 12:13:11 |
References
|
2019-01-08
| ||
| 10:51 | • Ticket [cc1e91552c] Regression in list expansion status still Open with 5 other changes artifact: 68aded8997 user: max | |
Context
|
2018-03-11
| ||
| 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 | |
|
2018-03-10
| ||
| 15:41 | Remove unused argument. check-in: 068c425cb0 user: dgp tags: core-8-6-branch | |
Changes
Changes to generic/tclExecute.c.
5234 5235 5236 5237 5238 5239 5240 5241 5242 5243 5244 5245 5246 5247 |
*/
#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:
|
> > > > > > |
5234 5235 5236 5237 5238 5239 5240 5241 5242 5243 5244 5245 5246 5247 5248 5249 5250 5251 5252 5253 |
*/
#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:
|