summaryrefslogtreecommitdiff
path: root/libguile/srcprop.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-16 22:01:10 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-16 22:01:10 +0000
commit67329a9eefdcfae7ccee5ba2afc783e30dacdae2 (patch)
tree62f268f12a88c3f969ad26f6ab0a9929eff71706 /libguile/srcprop.c
parentf07c886abbde77c62528981137406da88cf2f055 (diff)
downloadguile-67329a9eefdcfae7ccee5ba2afc783e30dacdae2.tar.gz
* mallocs.c (scm_malloc_obj): use scm_gc_malloc in stead of
malloc. * gc-segment.c (scm_i_get_new_heap_segment): remove cluster cruft: only use SCM_MIN_HEAP_SEG_SIZE. * ports.c (scm_add_to_port_table): add backwards compatibility function * ports.h: use scm_i_ prefix for port table and port table size.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r--libguile/srcprop.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index a47dfc0ea..b1e48eaa2 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -138,7 +138,7 @@ scm_make_srcprops (long line, int col, SCM filename, SCM copy, SCM plist)
scm_t_srcprops_chunk *mem;
size_t n = sizeof (scm_t_srcprops_chunk)
+ sizeof (scm_t_srcprops) * (SRCPROPS_CHUNKSIZE - 1);
- SCM_SYSCALL (mem = (scm_t_srcprops_chunk *) malloc (n));
+ SCM_SYSCALL (mem = (scm_t_srcprops_chunk *) scm_malloc (n));
if (mem == NULL)
scm_memory_error ("srcprops");
scm_mallocated += n;