From 76e147ef8ba7c5d960b32b63c14f384ac23e9e8d Mon Sep 17 00:00:00 2001 From: das Date: Sat, 31 May 2008 23:34:30 +0000 Subject: * tools/tsdPerf.tcl: use [info sharedlibextension] --- tools/tsdPerf.tcl | 4 ++-- 1 file 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 { -- cgit v0.12