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