mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

for dynamic-link tests, mingw needs to link to msvcrt

Browse source 
* test-suite/standalone/test-ffi: link msvcrt for mingw
* test-suite/standalone/test-foreign-object-scm: link msvcrt for mingw
This commit is contained in:
Michael Gran 2020-11-23 19:20:54 -08:00
parent 0d80eb23e2
commit 93b8ab2994
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/standalone/test-ffi
View file

@ -269,6 +269,9 @@ exec guile -q -s "$0" "$@"
;; into linked DLLs. Thus one needs to link to the core ;; into linked DLLs. Thus one needs to link to the core
;; C library DLL explicitly. ;; C library DLL explicitly.
(dynamic-link "cygwin1")) (dynamic-link "cygwin1"))
((string-contains %host-type "mingw")
;; Also, no recursive search into linked DLLs in MinGW.
(dynamic-link "msvcrt"))
(else (else
(dynamic-link)))) (dynamic-link))))

2
test-suite/standalone/test-foreign-object-scm
View file

@ -35,6 +35,8 @@ exec guile -q -s "$0" "$@"
;; needs to link to the core C library DLL ;; needs to link to the core C library DLL
;; explicitly. ;; explicitly.
(dynamic-link "cygwin1")) (dynamic-link "cygwin1"))
((string-contains %host-type "mingw")
(dynamic-link "msvcrt"))
(else (else
(dynamic-link))))) (dynamic-link)))))
(lambda (k . args) (lambda (k . args)