9 lines
164 B
Tcl
9 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]
|
|
}
|