Check-in [15bb35cd1b]
Overview
SHA1:15bb35cd1b336f87cd1a805aa7551b5f5ba7e798
Date: 2010-10-04 04:53:50
User: rkeene
Comment:Added comments to Threads test
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2010-10-04
18:20
[d68d005c05] Updated to support Solaris method of specifying the whole archive (user: rkeene, tags: trunk)
04:53
[15bb35cd1b] Added comments to Threads test (user: rkeene, tags: trunk)
04:52
[6a3474d699] Added Threads test (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
25
#! /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

exit 0




>













>
>
>
>
>








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
31
#! /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

exit 0