summaryrefslogtreecommitdiff
path: root/libguile/gc.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc.h')
-rw-r--r--libguile/gc.h57
1 files changed, 12 insertions, 45 deletions
diff --git a/libguile/gc.h b/libguile/gc.h
index 72d697eeb..cb64d7d18 100644
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -3,17 +3,17 @@
#ifndef GCH
#define GCH
/* Copyright (C) 1995, 96, 98, 99, 2000 Free Software Foundation, Inc.
- *
+ *
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
- *
+ *
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
- *
+ *
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -60,56 +60,23 @@
: SCM_GCMARKP(x))
#define SCM_NMARKEDP(x) (!SCM_MARKEDP(x))
-extern struct scm_heap_seg_data *scm_heap_table;
+extern struct scm_heap_seg_data_t *scm_heap_table;
extern int scm_n_heap_segs;
extern int scm_take_stdin;
extern int scm_block_gc;
extern int scm_gc_heap_lock;
-typedef struct scm_freelist_t {
- /* collected cells */
- SCM cells;
-#ifdef GUILE_NEW_GC_SCHEME
- /* number of cells left to collect before cluster is full */
- unsigned int left_to_collect;
- /* a list of freelists, each of size gc_trigger,
- except the last one which may be shorter */
- SCM clusters;
- SCM *clustertail;
- /* this is the number of cells in each cluster, including the spine cell */
- int cluster_size;
- /* set to grow the heap when we run out of clusters
- */
- int grow_heap_p;
- /* minimum number of objects allocated before GC is triggered
- */
- int gc_trigger;
- /* defines gc_trigger as percent of heap size
- * 0 => constant trigger
- */
- int gc_trigger_fraction;
-#endif
- /* number of cells per object on this list */
- int span;
- /* number of collected cells during last GC */
- int collected;
- /* total number of cells in heap segments
- * belonging to this list.
- */
- int heap_size;
-} scm_freelist_t;
-
extern scm_sizet scm_max_segment_size;
extern SCM_CELLPTR scm_heap_org;
#ifdef GUILE_NEW_GC_SCHEME
extern SCM scm_freelist;
-extern scm_freelist_t scm_master_freelist;
+extern struct scm_freelist_t scm_master_freelist;
extern SCM scm_freelist2;
-extern scm_freelist_t scm_master_freelist2;
+extern struct scm_freelist_t scm_master_freelist2;
#else
-extern scm_freelist_t scm_freelist;
-extern scm_freelist_t scm_freelist2;
+extern struct scm_freelist_t scm_freelist;
+extern struct scm_freelist_t scm_freelist2;
#endif
extern unsigned long scm_gc_cells_collected;
extern unsigned long scm_gc_malloc_collected;
@@ -136,14 +103,14 @@ extern SCM scm_gc_stats (void);
extern void scm_gc_start (const char *what);
extern void scm_gc_end (void);
extern SCM scm_gc (void);
-extern void scm_gc_for_alloc (scm_freelist_t *freelist);
+extern void scm_gc_for_alloc (struct scm_freelist_t *freelist);
#ifdef GUILE_NEW_GC_SCHEME
-extern SCM scm_gc_for_newcell (scm_freelist_t *master, SCM *freelist);
+extern SCM scm_gc_for_newcell (struct scm_freelist_t *master, SCM *freelist);
#if 0
-extern void scm_alloc_cluster (scm_freelist_t *master);
+extern void scm_alloc_cluster (struct scm_freelist_t *master);
#endif
#else
-extern SCM scm_gc_for_newcell (scm_freelist_t *freelist);
+extern SCM scm_gc_for_newcell (struct scm_freelist_t *freelist);
#endif
extern void scm_igc (const char *what);
extern void scm_gc_mark (SCM p);