mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

Add replacement for missing getpagesize() on MINGW

Browse source 
* 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
This commit is contained in:
Michael Gran 2023-06-20 15:21:10 -07:00
parent 0b9f58c339
commit 0e20c0c8c6
4 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/posix-w32.c
View file

@ -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;
}