summaryrefslogtreecommitdiff
path: root/libguile/posix-w32.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2023-06-20 15:21:10 -0700
committerMichael Gran <spk121@yahoo.com>2025-03-22 14:17:30 -0700
commit0e20c0c8c66cd99df830edb0dce80eea2415e58f (patch)
treef5e0ef450fa006c208601a49b640afab3bd7c09f /libguile/posix-w32.c
parent0b9f58c339184ef16f362e8e1aa0948a93f8b2d7 (diff)
downloadguile-0e20c0c8c66cd99df830edb0dce80eea2415e58f.tar.gz
Add replacement for missing getpagesize() on MINGW
* libguile/posix-w32.c (getpagesize_w32): new procedure * libguile/posix-w32.h: declaration of getpagesize_w32 * libguile/loader.c [__MINGW32__](scm_bootstrap_loader): use new procedure * libguile/vm.c [__MINGW32__](scm_i_vm_prepare_stack): use new procedure
Diffstat (limited to 'libguile/posix-w32.c')
-rw-r--r--libguile/posix-w32.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/posix-w32.c b/libguile/posix-w32.c
index f11c52673..bf654b593 100644
--- a/libguile/posix-w32.c
+++ b/libguile/posix-w32.c
@@ -1256,3 +1256,8 @@ dlerror_w32 ()
snprintf (dlerror_str, DLERROR_LEN, "error %ld: %s", (long) dw, msg_buf);
return dlerror_str;
}
+int
+getpagesize_w32 (void)
+{
+ return 4 * 1024;
+}