7c2638bd89
the other tcl scripts in the test-suite have already been changed in this way, but this one was missed it seems. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9337 626c5289-ae23-0410-ae9c-e8d60b6d4f22
8 lines
164 B
Tcl
8 lines
164 B
Tcl
catch { load ./profiletest[info sharedlibextension] profiletest}
|
|
|
|
set a [new_A]
|
|
set b [new_B]
|
|
|
|
for {set i 0} {$i < 1000000} {incr i 1} {
|
|
set a [B_fn $b $a]
|
|
}
|