PageRenderTime 9ms CodeModel.GetById 2ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/Examples/test-suite/tcl/disown_runme.tcl

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