From 1b4a49db86fa6ebf6943613fe6c1ac9728f72d30 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Wed, 12 Dec 2012 17:37:44 +0100 Subject: [PATCH] vm: added stack size environment variable GUILE_STACK_SIZE_NSCM * libguile/vm.h in function make_vm added code to use environment variable for stack size if defined --- libguile/vm.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/libguile/vm.c b/libguile/vm.c index 5dec106..adde00d 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -670,7 +670,18 @@ make_vm (void) vp = scm_gc_malloc (sizeof (struct scm_vm), "vm"); - vp->stack_size = VM_DEFAULT_STACK_SIZE; + size_t ssz = VM_DEFAULT_STACK_SIZE; + SCM env_stack_size = scm_getenv( scm_from_locale_string ("GUILE_STACK_SIZE_NSCM")); + + if (scm_is_true (env_stack_size)) + { + env_stack_size = scm_string_to_number (env_stack_size, scm_from_int (10)); + if(scm_is_true (env_stack_size) + && scm_is_unsigned_integer (env_stack_size, 1000, 2000000000)) + ssz = scm_to_uint32 (env_stack_size); + } + + vp->stack_size = ssz; #ifdef VM_ENABLE_PRECISE_STACK_GC_SCAN vp->stack_base = (SCM *) -- 1.7.9.5