From 594c8666ecb29ae56eed6285d0f4d0c58c9e9994 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] FossilOrigin-Name: f8c0850da0ce8a8c9e6d2040c9b55e812d2360e6 --- 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