@@ -76,12 +76,12 @@ ## Delete without performing set handle [tcc4tcl::new] $handle delete -# External functions (requires .a files) -if {[info exists ::env(TCC4TCL_TEST_RUN_NATIVE)]} { +# External functions (requires .so or .a (ELF) files which do not exist on Darwin) +if {[info exists ::env(TCC4TCL_TEST_RUN_NATIVE)] && $::tcl_platform(os) != "Darwin"} { set handle [tcc4tcl::new] $handle ccode {const char *curl_version(void);} $handle cproc curl_version {} vstring $handle add_library_path /usr/lib64 $handle add_library_path /usr/lib @@ -97,11 +97,12 @@ } $handle go puts [wideTest 30] # Produce a loadable object -if {[info exists ::env(TCC4TCL_TEST_RUN_NATIVE)]} { +## Currently doesn't work on Darwin +if {[info exists ::env(TCC4TCL_TEST_RUN_NATIVE)] && $::tcl_platform(os) != "Darwin"} { set tmpfile "/tmp/DELETEME_tcc4tcl_test_exec[expr rand()].so" file delete $tmpfile set handle [tcc4tcl::new $tmpfile "myPkg 0.1"] $handle cproc ext_add {int a int b} long { return(a+b); } $handle add_library_path /usr/lib64