set i_max 5
for {set i 1} {${i} <= ${i_max}} {incr i} {
OCC162 s
+
lappend listmem [meminfo h]
- if { [checktrend $listmem 0 1 "Memory leak detected"] } {
- puts "No memory leak, $i iterations"
- break
- }
+ checktrend $listmem 0 1 "Memory leak detected"
}