1fa14f74a7
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7726 626c5289-ae23-0410-ae9c-e8d60b6d4f22
16 lines
341 B
Tcl
16 lines
341 B
Tcl
|
|
# 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
|
|
}
|
|
|