diff options
| author | das <das> | 2008-05-31 23:34:30 (GMT) |
|---|---|---|
| committer | das <das> | 2008-05-31 23:34:30 (GMT) |
| commit | 76e147ef8ba7c5d960b32b63c14f384ac23e9e8d (patch) | |
| tree | e507d1db0912ffdc973194fe561e6bcce9193806 /tools/tsdPerf.tcl | |
| parent | 329d98c01605762fe0361928f2c8aa8c3182fb05 (diff) | |
| download | tcl-76e147ef8ba7c5d960b32b63c14f384ac23e9e8d.zip tcl-76e147ef8ba7c5d960b32b63c14f384ac23e9e8d.tar.gz tcl-76e147ef8ba7c5d960b32b63c14f384ac23e9e8d.tar.bz2 | |
* tools/tsdPerf.tcl: use [info sharedlibextension]
Diffstat (limited to 'tools/tsdPerf.tcl')
| -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 { |