mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
1951a27c98
Warning was fixed. Remarks were applied. - class VMap in Draw was removed - NCollection_DataMap is used to store objects - name of object is used to associate Tcl variable with the object - creation and changing of objects are correclty handled Redundant casts were removed. Initial value is restored if variable is protected. Tests for bug #24863 were added. Some test cases and tcl command "save" were improved. Useless using of upvar was removed.
14 lines
270 B
Plaintext
14 lines
270 B
Plaintext
# Test for #24863: memory leak
|
|
|
|
set listmem {}
|
|
|
|
for {set i 1} {$i < 100000} {incr i} {
|
|
box b 10 10 10
|
|
|
|
lappend listmem [meminfo h]
|
|
|
|
if { [checktrend $listmem 0 256 "Memory leak detected"] } {
|
|
puts "No memory leak, $i iterations"
|
|
break
|
|
}
|
|
} |