diff options
| author | das <das@noemail.net> | 2008-05-31 23:34:30 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2008-05-31 23:34:30 (GMT) |
| commit | 594c8666ecb29ae56eed6285d0f4d0c58c9e9994 (patch) | |
| tree | e507d1db0912ffdc973194fe561e6bcce9193806 | |
| parent | 9d78c8b024d8fea4aa45e84b608e2102d936379e (diff) | |
| download | tcl-594c8666ecb29ae56eed6285d0f4d0c58c9e9994.zip tcl-594c8666ecb29ae56eed6285d0f4d0c58c9e9994.tar.gz tcl-594c8666ecb29ae56eed6285d0f4d0c58c9e9994.tar.bz2 | |
* tools/tsdPerf.tcl: use [info sharedlibextension]
FossilOrigin-Name: f8c0850da0ce8a8c9e6d2040c9b55e812d2360e6
| -rw-r--r-- | tools/tsdPerf.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/tsdPerf.tcl b/tools/tsdPerf.tcl index c2d74c9..f2cc6d6 100644 --- a/tools/tsdPerf.tcl +++ b/tools/tsdPerf.tcl @@ -5,7 +5,7 @@ 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.so] + load [file join $curdir tsdPerf[info sharedlibextension]] while 1 { tsdPerfSet IVALUE @@ -16,7 +16,7 @@ for {set i 0} {$i < 4} {incr i} { puts TIDS:$::tids set curdir [file dirname [info script]] -load [file join $curdir tsdPerf.so] +load [file join $curdir tsdPerf[info sharedlibextension]] tsdPerfSet 1234 while 1 { |