mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Small fixes. Gets to the REPL and `abort ()'s soon after.

Browse source 
* 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
This commit is contained in:
Ludovic Courtes 2006-04-02 21:04:30 +00:00 • committed by Ludovic Courtès
parent 26224b3f5d
commit c812243ba1
4 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/srcprop.c
View file

@ -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];