This file is part of MXE. See LICENSE.md for licensing information.

Contains ad hoc patches for cross building.

From 0000000000000000000000000000000000000000 Mon Sep 17 00:00:00 2001
From: MXE
Date: Wed, 29 Jan 2025 12:00:00 +0000
Subject: [PATCH] Fix Windows build issues

diff --git a/libguile/vm.c b/libguile/vm.c
index 1111111..2222222 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -648,7 +648,11 @@ return_unused_stack_to_os (struct scm_vm *vp)
       scm_t_uintptr lo = SCM_ROUND_UP ((scm_t_uintptr) vp->sp,
                                        page_size);
       if (lo < hi)
+#ifdef __MINGW32__
+        ret = 0;  /* madvise not available on Windows */
+#else
         ret = madvise ((void *) lo, hi - lo, MADV_DONTNEED);
+#endif
       if (ret)
         perror ("madvise failed");
     }