(scm_gc_register_collectable_memory): more overflow

protection.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index ed8ceb2..48cf939 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-09  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * gc-malloc.c (scm_gc_register_collectable_memory): more overflow
+       protection.
+
 2002-09-08  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * inline.h: include stdio.h

diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c
index 9703051..54a1622 100644 (file)
--- a/libguile/gc-malloc.c
+++ b/libguile/gc-malloc.c
@@ -234,9 +234,9 @@ scm_gc_register_collectable_memory (void *mem, size_t size, const char *what)
            Instead of getting bogged down, we let the mtrigger grow
            strongly with it.
           */
-         float no_overflow_trigger = (float)(scm_mallocated * 110);
+         float no_overflow_trigger = scm_mallocated * 110.0;
 
-         no_overflow_trigger /= (float)  (100 - scm_i_minyield_malloc);
+         no_overflow_trigger /= (float)  (100.0 - scm_i_minyield_malloc);
          scm_mtrigger =  (unsigned long) no_overflow_trigger;
          
 #ifdef DEBUGINFO