Sign in
fuchsia
/
third_party
/
swig
/
ae709933805236a8bbf2cba82ed984d92c82ee9c
/
.
/
Examples
/
test-suite
/
tcl
/
profiletest_runme.tcl
blob: 087eea4639058dd9b02b7644a6cd8816c78f1ffb [
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
]
}