From 7a64509c047108d67f737b2f9cc0cd44c135eed3 Mon Sep 17 00:00:00 2001 From: Olly Betts Date: Sat, 23 Sep 2006 22:43:48 +0000 Subject: [PATCH] Use "[info sharedlibextension]" instead of trying ".so" then ".dll". All the other tcl scripts in the test-suite have already been changed in this way, but this one was missed it seems. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9337 626c5289-ae23-0410-ae9c-e8d60b6d4f22 --- SWIG/Examples/test-suite/tcl/profiletest_runme.tcl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl b/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl index 1662d1d59..087eea463 100644 --- a/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl +++ b/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl @@ -1,9 +1,8 @@ -catch { load ./profiletest.so profiletest} -catch { load ./profiletest.dll profiletest} ;# Windows +catch { load ./profiletest[info sharedlibextension] profiletest} set a [new_A] set b [new_B] for {set i 0} {$i < 1000000} {incr i 1} { set a [B_fn $b $a] -} \ No newline at end of file +}