summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-05-31 23:34:30 (GMT)
committerdas <das>2008-05-31 23:34:30 (GMT)
commit76e147ef8ba7c5d960b32b63c14f384ac23e9e8d (patch)
treee507d1db0912ffdc973194fe561e6bcce9193806
parent329d98c01605762fe0361928f2c8aa8c3182fb05 (diff)
downloadtcl-76e147ef8ba7c5d960b32b63c14f384ac23e9e8d.zip
tcl-76e147ef8ba7c5d960b32b63c14f384ac23e9e8d.tar.gz
tcl-76e147ef8ba7c5d960b32b63c14f384ac23e9e8d.tar.bz2
* tools/tsdPerf.tcl: use [info sharedlibextension]
-rw-r--r--tools/tsdPerf.tcl4
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 {