Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge 8.7 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
792948e48281553af0302388f138cce5 |
| User & Date: | dgp 2018-09-07 12:11:45 |
Context
|
2018-09-07
| ||
| 22:27 | Merge 8.7 check-in: a734a8dc22 user: jan.nijtmans tags: trunk | |
| 22:09 | merge trunk check-in: 98b877b9ef user: jan.nijtmans tags: memory-API | |
| 12:11 | merge 8.7 check-in: 792948e482 user: dgp tags: trunk | |
| 12:11 | merge 8.6 check-in: e891020c32 user: dgp tags: core-8-branch | |
| 12:04 | merge 8.7 (segfault fix) check-in: 04f3cf7430 user: sebres tags: trunk | |
Changes
Changes to tests/proc.test.
387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 |
set lambda x
lappend lambda {set a 1}
interp create slave
slave eval [list apply $lambda foo]
interp delete slave
unset lambda
} {}
# cleanup
catch {rename p ""}
catch {rename t ""}
::tcltest::cleanupTests
return
# Local Variables:
# mode: tcl
# fill-column: 78
# End:
|
> > > > > > > > |
387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 |
set lambda x
lappend lambda {set a 1}
interp create slave
slave eval [list apply $lambda foo]
interp delete slave
unset lambda
} {}
test proc-7.5 {[631b4c45df] Crash in argument processing} {
binary scan A c val
proc foo [list [list from $val]] {}
rename foo {}
unset -nocomplain val
} {}
# cleanup
catch {rename p ""}
catch {rename t ""}
::tcltest::cleanupTests
return
# Local Variables:
# mode: tcl
# fill-column: 78
# End:
|