diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-09-18 20:18:17 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2003-09-18 20:18:17 +0000 |
commit | 29c4382afda07debaef4f5d2534f5272bca15fdd (patch) | |
tree | 509b068aa31a1ee2af187822ce759748e505472a /libguile/gc-card.c | |
parent | 47ae1f0ecaded1a0a094db3f7ec9687dec71f72d (diff) | |
download | guile-29c4382afda07debaef4f5d2534f5272bca15fdd.tar.gz |
* numbers.c (scm_make_complex), gc-card.c (scm_i_sweep_card): Use
sizeof (scm_t_complex) to determine the memory size of the
malloc'd area for complex numbers.
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c index 3939417d3..26fd425d5 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -21,6 +21,7 @@ #include "libguile/_scm.h" #include "libguile/eval.h" +#include "libguile/numbers.h" #include "libguile/stime.h" #include "libguile/stackchk.h" #include "libguile/struct.h" @@ -238,7 +239,7 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg) /* nothing else to do here since the mpz is in a double cell */ break; case scm_tc16_complex: - scm_gc_free (SCM_COMPLEX_MEM (scmptr), 2*sizeof (double), + scm_gc_free (SCM_COMPLEX_MEM (scmptr), sizeof (scm_t_complex), "complex"); break; default: |