Posted to tcl by patthoyts at Wed May 06 22:13:26 GMT 2009view raw
- # Show leak in Trf accelerator usage in tcllib. This affects md5 and crc32
- package require crc32
- proc Main {} {
- puts [array get ::crc::accel]; flush stdout
- set v [expr {int(rand() * 16)}]
- while {1} {
- set v [::crc::crc32 $v]
- }
- }
- Main