0603e7529b
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5983 626c5289-ae23-0410-ae9c-e8d60b6d4f22
9 lines
No EOL
199 B
Tcl
9 lines
No EOL
199 B
Tcl
catch { load ./profiletest.so profiletest}
|
|
catch { load ./profiletest.dll profiletest} ;# Windows
|
|
|
|
set a [new_A]
|
|
set b [new_B]
|
|
|
|
for {set i 0} {$i < 1000000} {incr i 1} {
|
|
set a [B_fn $b $a]
|
|
} |