Tcl Source Code

Check-in [792948e482]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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: 792948e48281553af0302388f138cce5552ec67a65b4c7da3e0fc10341f72773
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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: