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

Provide a more reasonable default value for stack limit on MS-Windows.

Browse source 
* libguile/debug.c (init_stack_limit) [__MINGW32__]: Use
  VirtualQuery to compute the stack limit on MS-Windows.
This commit is contained in:
Eli Zaretskii 2014-07-03 19:26:21 +03:00
parent 317f6a2370
commit 5102fc3790
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/debug.c
View file

@ -27,6 +27,11 @@
#include <sys/resource.h> #include <sys/resource.h>
#endif #endif
#ifdef __MINGW32__
# define WIN32_LEAN_AND_MEAN
# include <windows.h>
#endif
#include "libguile/_scm.h" #include "libguile/_scm.h"
#include "libguile/async.h" #include "libguile/async.h"
#include "libguile/eval.h" #include "libguile/eval.h"
@ -228,7 +233,7 @@ scm_local_eval (SCM exp, SCM env)
static void static void
init_stack_limit (void) init_stack_limit (void)
{ {
#ifdef HAVE_GETRLIMIT #if defined HAVE_GETRLIMIT
struct rlimit lim; struct rlimit lim;
if (getrlimit (RLIMIT_STACK, &lim) == 0) if (getrlimit (RLIMIT_STACK, &lim) == 0)
{ {
@ -242,6 +247,16 @@ init_stack_limit (void)
SCM_STACK_LIMIT = bytes * 8 / 10 / sizeof (scm_t_bits); SCM_STACK_LIMIT = bytes * 8 / 10 / sizeof (scm_t_bits);
} }
errno = 0; errno = 0;
#elif defined __MINGW32__
MEMORY_BASIC_INFORMATION m;
uintptr_t bytes;
if (VirtualQuery ((LPCVOID) &m, &m, sizeof m))
{
bytes = (DWORD_PTR) m.BaseAddress + m.RegionSize
- (DWORD_PTR) m.AllocationBase;
SCM_STACK_LIMIT = bytes * 8 / 10 / sizeof (scm_t_bits);
}
#endif #endif
} }