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 |
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.826 |
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: |
︙ | ︙ |