Check-in [15bb35cd1b]
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: 15bb35cd1b336f87cd1a805aa7551b5f5ba7e798
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
#! /usr/bin/env tclsh

set buildflags [split [lindex $argv 1] -]


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
	}
}






if {!$isthreaded} {
	exit 0
}

package require Thread





>













>
>
>
>
>







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