Posted to tcl by alex at Sat Jul 28 17:03:01 GMT 2007view raw

  1. puts "initial"
  2. after 500; puts [exec ps -C tclsh -o rss,vsize]
  3.  
  4. for {set i 0} {$i <4} {incr i} {
  5. puts "load t$i"
  6. package require t$i
  7. after 500; puts [exec ps -C tclsh -o rss,vsize]
  8. puts "unload t$i"
  9. package forget t$i
  10. after 500; puts [exec ps -C tclsh -o rss,vsize]
  11.