blob: d6647c037fb66f037a453154ac8c20eb135bdd4d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# This is the union runtime testcase. It ensures that values within a
# union embedded within a struct can be set and read correctly.
if [ catch { load ./disown[info sharedlibextension] disown} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
set x 0
while {$x<100} {
set a [new_A]
B b
b acquire $a
incr x
}
|