mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

getrlimit-based stack limits

Browse source 
* libguile/debug.c (init_stack_limit): Initialize the stack limit based
  on operating system limits (via getrlimit(2)), or 1 MB -- whichever is
  smaller.
This commit is contained in:
Andy Wingo 2009-03-27 15:44:17 -07:00
parent 4ea9429edc
commit ec900eacb7
1 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
libguile/debug.c
View file

@ -21,6 +21,11 @@
# include <config.h> # include <config.h>
#endif #endif
#ifdef HAVE_GETRLIMIT
#include <sys/time.h>
#include <sys/resource.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"
@ -513,11 +518,42 @@ SCM_DEFINE (scm_debug_hang, "debug-hang", 0, 1, 0,
#undef FUNC_NAME #undef FUNC_NAME
#endif #endif
static void
init_stack_limit (void)
{
#ifdef HAVE_GETRLIMIT
struct rlimit lim;
if (getrlimit (RLIMIT_STACK, &lim) == 0)
{
int bytes = lim.rlim_cur, words;
/* set our internal stack limit to 1 MB or 80% of the rlimit, whichever
is lower. */
if (bytes == RLIM_INFINITY)
bytes = lim.rlim_max;
if (bytes == RLIM_INFINITY)
words = 1024 * 1024 / sizeof (scm_t_bits);
else
{
bytes = bytes * 8 / 10;
if (bytes > 1024 * 1024)
bytes = 1024 * 1024;
words = bytes / sizeof (scm_t_bits);
}
SCM_STACK_LIMIT = words;
}
errno = 0;
#endif
}
void void
scm_init_debug () scm_init_debug ()
{ {
init_stack_limit ();
scm_init_opts (scm_debug_options, scm_debug_opts); scm_init_opts (scm_debug_options, scm_debug_opts);
scm_tc16_memoized = scm_make_smob_type ("memoized", 0); scm_tc16_memoized = scm_make_smob_type ("memoized", 0);