Posted to tcl by colin at Mon Nov 01 04:44:00 GMT 2010view raw

  1. puts "[time {interp create -safe fred[incr cnt]} 1000]"
  2. puts "[time {interp create fred[incr cnt]} 1000]"
  3.  
  4. set forever 0
  5. vwait forever
  6.  
  7. 938.465 microseconds per iteration
  8.  
  9. 2630.036 microseconds per iteration