summaryrefslogtreecommitdiff
path: root/libguile/mallocs.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/mallocs.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/mallocs.c')
-rw-r--r--libguile/mallocs.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/mallocs.c b/libguile/mallocs.c
index accdcce36..6360ec2b9 100644
--- a/libguile/mallocs.c
+++ b/libguile/mallocs.c
@@ -84,7 +84,7 @@ malloc_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
SCM
scm_malloc_obj (size_t n)
{
- scm_t_bits mem = n ? (scm_t_bits) malloc (n) : 0;
+ scm_t_bits mem = n ? (scm_t_bits) scm_gc_malloc (n, "malloc smob") : 0;
if (n && !mem)
return SCM_BOOL_F;
SCM_RETURN_NEWSMOB (scm_tc16_malloc, mem);