7 # Gauge for virtual memory
8 if ![string compare $tcl_platform(platform) "windows"] {
11 regsub "^.*PeakVirtualSize: *\(\[0-9\]*\) KB.*$" \
12 [exec tlist [pid]] "\\1" mem
15 proc VMem { memory } {
17 set mem [lindex [exec ps -o vsz -p [pid]] 1]
26 restore [locate_data_file OCC162.brep] s
32 puts "... The peak memory consumed: [expr $Mem1 - $Mem0] KB"
36 for {set i 1} {${i} <= ${i_max}} {incr i} {
39 set Delta [expr $Mem2 - $Mem1]
40 set MemoryLeakage [expr $MemoryLeakage + $Delta]
41 puts " $i delta memory consumed: $Delta KB"
45 set percent [expr ${MemoryLeakage} / (double(${i_max}) * (${Mem1} - ${Mem0})) * 100.]
46 puts "percent = ${percent}"
48 if {${percent} > ${percent_max}} {
49 puts "OCC162: Error : There is memory leakage during sewing operation"