352ffd73 |
1 | puts "============" |
2 | puts "OCC7287" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Problem of Memory Leak |
7 | ###################################################### |
8 | |
9 | # |
10 | # Result is not Null shape |
11 | # |
12 | |
13 | set BugNumber OCC7287 |
14 | |
5d05cf31 |
15 | set NCycles 100 |
352ffd73 |
16 | box b1 10 10 10 100 100 100 |
17 | box b2 50 50 50 |
352ffd73 |
18 | |
19 | for {set i 1} {${i} <= ${NCycles}} {incr i } { |
5d05cf31 |
20 | bop b1 b2 |
352ffd73 |
21 | bopfuse r |
22 | |
67a1064e |
23 | lappend listmem [meminfo h] |
9753e6de |
24 | if { [checktrend $listmem 0 100 "Memory leak detected"] } { |
67a1064e |
25 | puts "No memory leak, $i iterations" |
26 | break |
352ffd73 |
27 | } |
28 | } |