Tk Library Source Code

Artifact d93b2d422ddaf54e284457ccf0af18f206a82261:

Attachment "trial" to ticket [3427030fff] added by andreas_kupries 2011-11-11 05:41:14.

---

# -*- tcl -*-
puts $tcl_patchLevel
lappend auto_path [pwd]/modules
puts [package require md5crypt]
puts *\t[join [info loaded] \n*\t]

set i 0
proc m {} {
    global i
    set m [split [memory info] \n]
    puts -nonewline \r[incr i]:\tm[lindex $m 3 3]\t[lindex $m 5 3]
    flush stdout
}


m
for {set i 0} {$i < 1000000} {incr i} {
    set salt  [::md5crypt::salt]
    ::md5crypt::aprcrypt blah $salt
    m
}
exit