diff options
author | Michael Gran <spk121@yahoo.com> | 2020-11-23 19:20:54 -0800 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2021-01-21 15:32:45 -0800 |
commit | 93b8ab29947ef1f2391744cf6e9c2131acbfa020 (patch) | |
tree | 3d471d04dc094c89befa7c60785a527cc0b2ca6e /test-suite/standalone | |
parent | 0d80eb23e231fb8114101bae1c50e8b5672e653e (diff) | |
download | guile-93b8ab29947ef1f2391744cf6e9c2131acbfa020.tar.gz |
for dynamic-link tests, mingw needs to link to msvcrt
* test-suite/standalone/test-ffi: link msvcrt for mingw
* test-suite/standalone/test-foreign-object-scm: link msvcrt for mingw
Diffstat (limited to 'test-suite/standalone')
-rwxr-xr-x | test-suite/standalone/test-ffi | 3 | ||||
-rwxr-xr-x | test-suite/standalone/test-foreign-object-scm | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/standalone/test-ffi b/test-suite/standalone/test-ffi index 0e6ab45d1..113a102cc 100755 --- a/test-suite/standalone/test-ffi +++ b/test-suite/standalone/test-ffi @@ -269,6 +269,9 @@ exec guile -q -s "$0" "$@" ;; into linked DLLs. Thus one needs to link to the core ;; C library DLL explicitly. (dynamic-link "cygwin1")) + ((string-contains %host-type "mingw") + ;; Also, no recursive search into linked DLLs in MinGW. + (dynamic-link "msvcrt")) (else (dynamic-link)))) diff --git a/test-suite/standalone/test-foreign-object-scm b/test-suite/standalone/test-foreign-object-scm index fd4669aa9..be3441c3e 100755 --- a/test-suite/standalone/test-foreign-object-scm +++ b/test-suite/standalone/test-foreign-object-scm @@ -35,6 +35,8 @@ exec guile -q -s "$0" "$@" ;; needs to link to the core C library DLL ;; explicitly. (dynamic-link "cygwin1")) + ((string-contains %host-type "mingw") + (dynamic-link "msvcrt")) (else (dynamic-link))))) (lambda (k . args) |