Fossil SCM
|
1
|
<th1> |
|
2
|
proc vfunc {args} { |
|
3
|
set argc [llength $args] |
|
4
|
puts "argc=$argc Check this for a memleak when args length > 0\n" |
|
5
|
} |
|
6
|
vfunc |
|
7
|
vfunc 1 |
|
8
|
vfunc 1 2 |
|
9
|
vfunc 1 2 3 |
|
10
|
</th1> |