Posted to tcl by alex at Sat Jul 28 17:03:01 GMT 2007view pretty
puts "initial"
after 500; puts [exec ps -C tclsh -o rss,vsize]
for {set i 0} {$i <4} {incr i} {
puts "load t$i"
package require t$i
after 500; puts [exec ps -C tclsh -o rss,vsize]
puts "unload t$i"
package forget t$i
after 500; puts [exec ps -C tclsh -o rss,vsize]