Posted to tcl by patthoyts at Wed May 06 22:13:26 GMT 2009view pretty
# 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