diff options
Diffstat (limited to 'Examples/test-suite/tcl/profiletest_runme.tcl')
| -rw-r--r-- | Examples/test-suite/tcl/profiletest_runme.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Examples/test-suite/tcl/profiletest_runme.tcl b/Examples/test-suite/tcl/profiletest_runme.tcl new file mode 100644 index 0000000..087eea4 --- /dev/null +++ b/Examples/test-suite/tcl/profiletest_runme.tcl @@ -0,0 +1,8 @@ +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] +} |