mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 17:30:24 +02:00
Code Activity

Have source properties only use regular GC mechanisms.

Browse source 
* libguile/srcprop.c: Include "libguile/gc.h".
  (srcprops_chunklist): Removed.
  (srcprops_freelist): Removed.
  (srcprops_free): Removed.
  (scm_make_srcprops): Use `scm_gc_malloc ()' rather than
  SRCPROPS_FREELIST et al.
  (scm_init_srcprop): Don't call `scm_set_smob_free ()'.
  (scm_finish_srcprop): Do nothing.

* libguile/srcprop.h (SRCPROPS_CHUNKSIZE): Removed.
  (scm_t_srcprops_chunk): Removed.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-45
This commit is contained in:
Ludovic Courtes 2006-06-25 22:44:00 +00:00 • committed by Ludovic Courtès
parent 488b10b5a5
commit 42e6668b5e
2 changed files with 6 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/srcprop.h
View file

@ -60,12 +60,6 @@ typedef struct scm_t_srcprops
SCM plist;
} scm_t_srcprops;
#define SRCPROPS_CHUNKSIZE 2047 /* Number of srcprops per chunk */
typedef struct scm_t_srcprops_chunk
{
struct scm_t_srcprops_chunk *next;
scm_t_srcprops srcprops[1];
} scm_t_srcprops_chunk;
#define SCM_SOURCE_PROPERTY_FLAG_BREAK 1