Overview
| Comment: | Added comments to Threads test |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
15bb35cd1b336f87cd1a805aa7551b5f |
| User & Date: | rkeene on 2010-10-04 04:53:50 |
| Other Links: | manifest | tags |
Context
|
2010-10-04
| ||
| 18:20 | Updated to support Solaris method of specifying the whole archive check-in: d68d005c05 user: rkeene tags: trunk | |
| 04:53 | Added comments to Threads test check-in: 15bb35cd1b user: rkeene tags: trunk | |
| 04:52 | Added Threads test check-in: 6a3474d699 user: rkeene tags: trunk | |
Changes
Modified build/test/tests/12-threads.tcl from [9a811a5937] to [df3ccdde39].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | + + + + + + |
#! /usr/bin/env tclsh
set buildflags [split [lindex $argv 1] -]
# Determine if Threads was requested (or in 8.6+, unrequested)
if {$tcl_version == "8.6"} {
if {[lsearch -exact $buildflags "unthreaded"] == -1} {
set isthreaded 1
} else {
set isthreaded 0
}
} else {
if {[lsearch -exact $buildflags "threaded"] == -1} {
set isthreaded 0
} else {
set isthreaded 1
}
}
# Static builds don't come with threads.
if {[lsearch -exact $buildflags "static"] != -1} {
set isthreaded 0
}
if {!$isthreaded} {
exit 0
}
package require Thread
|
| ︙ |