diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2006-04-02 21:04:30 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-05 00:46:07 +0200 |
commit | c812243ba15a9d13bb6f1876892e7a1efea9bf4e (patch) | |
tree | f98d42018d65072f7542cae879f2ee45925a9e35 /libguile/srcprop.c | |
parent | 26224b3f5d795e523e921ec32ffec424893ea035 (diff) | |
download | guile-c812243ba15a9d13bb6f1876892e7a1efea9bf4e.tar.gz |
Small fixes. Gets to the REPL and `abort ()'s soon after.
* libguile/inline.h (scm_cell): Re-added comment about the assignment
order of CAR/CDR.
* libguile/srcprop.c (scm_make_srcprops): Use `scm_gc_malloc ()' instead
of `malloc' + `scm_gc_register_collectable_memory ()'.
* libguile/threads.c (guilify_self_1): Likewise.
(guilify_self_2): Likewise.
* libguile/strings.c (make_stringbuf): Use `GC_MALLOC_ATOMIC ()' instead
of `scm_gc_malloc ()'.
git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-2
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r-- | libguile/srcprop.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c index e1b86738c..34c1ae173 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -112,11 +112,10 @@ 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 *) scm_malloc (n)); + mem = scm_gc_malloc (n, "srcprops"); if (mem == NULL) scm_memory_error ("srcprops"); - scm_gc_register_collectable_memory (mem, n, "srcprops"); - + mem->next = srcprops_chunklist; srcprops_chunklist = mem; ptr = &mem->srcprops[0]; |