diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-31 17:50:24 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-31 17:50:24 (GMT) |
| commit | de0c57b4383a4d7ced5058c2c50580a0f4ba5477 (patch) | |
| tree | ed9f83c4262ccc3cd22a3cf8ad5ad18f197f7d63 /tcl8.6/tools/tsdPerf.tcl | |
| parent | 4f9885152c6e8eef1a01e2cc50fa4e3db8bbcb5c (diff) | |
| download | blt-de0c57b4383a4d7ced5058c2c50580a0f4ba5477.zip blt-de0c57b4383a4d7ced5058c2c50580a0f4ba5477.tar.gz blt-de0c57b4383a4d7ced5058c2c50580a0f4ba5477.tar.bz2 | |
upgrade tcl/tk 8.6.10
Diffstat (limited to 'tcl8.6/tools/tsdPerf.tcl')
| -rw-r--r-- | tcl8.6/tools/tsdPerf.tcl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/tcl8.6/tools/tsdPerf.tcl b/tcl8.6/tools/tsdPerf.tcl deleted file mode 100644 index 360ca9c..0000000 --- a/tcl8.6/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" -} |