Tcl package Thread source code

Check-in [673db50dc4]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix indentation
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 673db50dc4f8b1d2ff64e8383f6b4e4ad02d74fc
User & Date: gahr 2016-05-18 18:54:44
Context
2016-05-31
10:53
[3407860fff] Accept a status argument in [thread::exit] check-in: 0839286864 user: gahr tags: trunk
2016-05-19
14:03
[3407860fff] Accept a status argument in [thread::exit] Closed-Leaf check-in: 679580a1b4 user: gahr tags: bug-3407860fff
2016-05-18
18:54
Fix indentation check-in: 673db50dc4 user: gahr tags: trunk
18:53
[84be1b5a73] Add test case, update ChangeLog check-in: 95bfc24136 user: gahr tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/tkt-84be1b5a73.test.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package require tcltest
namespace import ::tcltest::*
tcltest::loadTestedCommands
package require Thread

# This test used to segfault before commit f4c95731c0.
test tkt-84be1b5a73 {Ticket 84be1b5a73} -body {
set t [thread::create]
    set resultvar() {}

    trace add variable resultvar() write {
        unset -nocomplain resultvar()
        list}

    thread::send -async $t {






|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package require tcltest
namespace import ::tcltest::*
tcltest::loadTestedCommands
package require Thread

# This test used to segfault before commit f4c95731c0.
test tkt-84be1b5a73 {Ticket 84be1b5a73} -body {
    set t [thread::create]
    set resultvar() {}

    trace add variable resultvar() write {
        unset -nocomplain resultvar()
        list}

    thread::send -async $t {