Posted to tcl by patthoyts at Wed May 06 22:13:26 GMT 2009view raw

  1. # Show leak in Trf accelerator usage in tcllib. This affects md5 and crc32
  2. package require crc32
  3.  
  4. proc Main {} {
  5. puts [array get ::crc::accel]; flush stdout
  6. set v [expr {int(rand() * 16)}]
  7. while {1} {
  8. set v [::crc::crc32 $v]
  9. }
  10. }
  11.  
  12. Main