diff options
| -rw-r--r-- | configure.ac | 2 | ||||
| -rw-r--r-- | src/libexpr/eval.cc | 35 |
2 files changed, 25 insertions, 12 deletions
diff --git a/configure.ac b/configure.ac index b487a8fdaa..deb011d1c7 100644 --- a/configure.ac +++ b/configure.ac @@ -284,7 +284,7 @@ AC_CHECK_FUNCS([setresuid setreuid lchown]) # Nice to have, but not essential. -AC_CHECK_FUNCS([strsignal posix_fallocate nanosleep]) +AC_CHECK_FUNCS([strsignal posix_fallocate nanosleep sysconf]) # This is needed if ATerm or bzip2 are static libraries, diff --git a/src/libexpr/eval.cc b/src/libexpr/eval.cc index b95c9a6d17..949f45e787 100644 --- a/src/libexpr/eval.cc +++ b/src/libexpr/eval.cc @@ -7,6 +7,7 @@ #include "globals.hh" #include <cstring> +#include <unistd.h> #if HAVE_BOEHMGC @@ -155,17 +156,29 @@ EvalState::EvalState() #if HAVE_BOEHMGC static bool gcInitialised = true; if (gcInitialised) { - /* Set the initial heap size to something fairly big (384 MiB) - so that in most cases we don't need to garbage collect at - all. (Collection has a fairly significant overhead.) The - heap size can be overriden through libgc's - GC_INITIAL_HEAP_SIZE environment variable. We should - probably also provide a nix.conf setting for this. Note - that GC_expand_hp() causes a lot of virtual, but not - physical (resident) memory to be allocated. This might be - a problem on systems that don't overcommit. */ - if (!getenv("GC_INITIAL_HEAP_SIZE")) - GC_expand_hp(384 * 1024 * 1024); + /* Set the initial heap size to something fairly big (25% of + physical RAM, up to a maximum of 384 MiB) so that in most + cases we don't need to garbage collect at all. (Collection + has a fairly significant overhead.) The heap size can be + overriden through libgc's GC_INITIAL_HEAP_SIZE environment + variable. We should probably also provide a nix.conf + setting for this. Note that GC_expand_hp() causes a lot of + virtual, but not physical (resident) memory to be + allocated. This might be a problem on systems that don't + overcommit. */ + if (!getenv("GC_INITIAL_HEAP_SIZE")) { + size_t maxSize = 384 * 1024 * 1024; + size_t size = 32 * 1024 * 1024; +#if HAVE_SYSCONF && defined(_SC_PAGESIZE) && defined(_SC_PHYS_PAGES) + long pageSize = sysconf(_SC_PAGESIZE); + long pages = sysconf (_SC_PHYS_PAGES); + if (pageSize != -1 && size != -1) + size = (pageSize * pages) / 4; // 25% of RAM + if (size > maxSize) size = maxSize; +#endif + debug(format("setting initial heap size to %1% bytes") % size); + GC_expand_hp(size); + } gcInitialised = true; } #endif |