swig/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl
Marcelo Matus 0603e7529b added profile test
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5983 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2004-06-14 18:11:38 +00:00

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]
}