Posted to tcl by alex at Sat Jul 28 17:03:01 GMT 2007view raw
- 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]