diff options
Diffstat (limited to 'tools/tsdPerf.tcl')
| -rw-r--r-- | tools/tsdPerf.tcl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/tools/tsdPerf.tcl b/tools/tsdPerf.tcl deleted file mode 100644 index 360ca9c..0000000 --- a/tools/tsdPerf.tcl +++ /dev/null @@ -1,24 +0,0 @@ - -package require Thread - -set ::tids [list] -for {set i 0} {$i < 4} {incr i} { - lappend ::tids [thread::create [string map [list IVALUE $i] { - set curdir [file dirname [info script]] - load [file join $curdir tsdPerf[info sharedlibextension]] - - while 1 { - tsdPerfSet IVALUE - } - }]] -} - -puts TIDS:$::tids - -set curdir [file dirname [info script]] -load [file join $curdir tsdPerf[info sharedlibextension]] - -tsdPerfSet 1234 -while 1 { - puts "TIME:[time {set value [tsdPerfGet]} 1000] VALUE:$value" -} |
