Sign in
android
/
platform
/
external
/
swig
/
refs/heads/main
/
.
/
Examples
/
test-suite
/
tcl
/
profiletest_runme.tcl
blob: 22d91ec58d3584b2c370a9fc9011f293c47c2901 [
file
] [
log
] [
blame
]
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
]
}