summaryrefslogtreecommitdiff
path: root/libguile/gc-malloc.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-20 21:31:58 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-20 21:40:00 -0700
commit68a30f5730e73b9792565c3c99b5724752472a85 (patch)
tree014b9db01627780f18d3310a4f049009c75202b9 /libguile/gc-malloc.c
parent0193377d24db3ec57ea9be488069a4b86878e6e6 (diff)
downloadguile-68a30f5730e73b9792565c3c99b5724752472a85.tar.gz
Type-limits error in GC environment initialization
* libguile/gc-malloc.c (scm_gc_init_malloc): GUILE_INIT_MALLOC_LIMIT is cast to unsigned then tested as if it were still signed
Diffstat (limited to 'libguile/gc-malloc.c')
-rw-r--r--libguile/gc-malloc.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c
index d6973d3ac..0a7220e21 100644
--- a/libguile/gc-malloc.c
+++ b/libguile/gc-malloc.c
@@ -83,7 +83,7 @@ static int scm_i_minyield_malloc;
void
scm_gc_init_malloc (void)
{
- scm_mtrigger = scm_getenv_int ("GUILE_INIT_MALLOC_LIMIT",
+ int mtrigger = scm_getenv_int ("GUILE_INIT_MALLOC_LIMIT",
SCM_DEFAULT_INIT_MALLOC_LIMIT);
scm_i_minyield_malloc = scm_getenv_int ("GUILE_MIN_YIELD_MALLOC",
SCM_DEFAULT_MALLOC_MINYIELD);
@@ -93,8 +93,10 @@ scm_gc_init_malloc (void)
if (scm_i_minyield_malloc < 1)
scm_i_minyield_malloc = 1;
- if (scm_mtrigger < 0)
+ if (mtrigger < 0)
scm_mtrigger = SCM_DEFAULT_INIT_MALLOC_LIMIT;
+ else
+ scm_mtrigger = mtrigger;
}