[Guile-commits] 05/13: for dynamic-link tests, mingw needs to link to msvcrt

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit 93b8ab29947ef1f2391744cf6e9c2131acbfa020
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Mon Nov 23 19:20:54 2020 -0800

    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
---
 test-suite/standalone/test-ffi                | 3 +++
 test-suite/standalone/test-foreign-object-scm | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/test-suite/standalone/test-ffi b/test-suite/standalone/test-ffi
index 0e6ab45..113a102 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 fd4669a..be3441c 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)