summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2007-07-22 21:21:02 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-10 22:45:59 +0200
commitb74e86cf5f50612742609210ad8e04d46069437f (patch)
tree7cf0ee0f9a5875acd4ea17f77c02ff6856925faa
parente9b8556ec92039396e740620238d56a3748f2a99 (diff)
downloadguile-b74e86cf5f50612742609210ad8e04d46069437f.tar.gz
Fixed warnings due to unused stuff.
* libguile/gc.c (scm_cells_allocated, scm_last_cells_allocated, scm_gc_cells_collected, scm_gc_cells_collected_1, scm_gc_malloc_collected, scm_gc_time_taken, t_before_gc, scm_gc_mark_time_taken, scm_gc_times, scm_gc_cells_swept, scm_gc_cells_marked_acc, scm_gc_cells_swept_acc, scm_gc_cell_yield_percentage, scm_gc_malloc_yield_percentage): Removed. * libguile/gc.h: Updated accordingly. * libguile/gdbint.c (port_mark_p, stream_mark_p, string_mark_p, unmark_port, remark_port): Removed. git-archimport-id: lcourtes@laas.fr--2006-libre/guile-core--boehm-gc--0--patch-4
-rw-r--r--libguile/gc.c17
-rw-r--r--libguile/gc.h7
-rw-r--r--libguile/gdbint.c39
3 files changed, 3 insertions, 60 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 3e8c02e1e..6d65f9c1d 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -222,22 +222,9 @@ unsigned long scm_mtrigger;
/* GC Statistics Keeping
*/
-unsigned long scm_cells_allocated = 0;
-unsigned long scm_last_cells_allocated = 0;
unsigned long scm_mallocated = 0;
-unsigned long scm_gc_cells_collected;
-unsigned long scm_gc_cells_collected_1 = 0; /* previous GC yield */
-unsigned long scm_gc_malloc_collected;
-unsigned long scm_gc_ports_collected;
-unsigned long scm_gc_time_taken = 0;
-static unsigned long t_before_gc;
-unsigned long scm_gc_mark_time_taken = 0;
-unsigned long scm_gc_times = 0;
-unsigned long scm_gc_cells_swept = 0;
-double scm_gc_cells_marked_acc = 0.;
-double scm_gc_cells_swept_acc = 0.;
-int scm_gc_cell_yield_percentage =0;
-int scm_gc_malloc_yield_percentage = 0;
+unsigned long scm_gc_ports_collected = 0;
+
static unsigned long protected_obj_count = 0;
diff --git a/libguile/gc.h b/libguile/gc.h
index f745b76a2..f6c3bcb5f 100644
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -170,15 +170,10 @@ SCM_API scm_i_pthread_key_t scm_i_freelist2;
SCM_API struct scm_t_cell_type_statistics scm_i_master_freelist;
SCM_API struct scm_t_cell_type_statistics scm_i_master_freelist2;
-SCM_API unsigned long scm_gc_malloc_collected;
-SCM_API unsigned long scm_gc_ports_collected;
-SCM_API unsigned long scm_cells_allocated;
-SCM_API int scm_gc_malloc_yield_percentage;
SCM_API unsigned long scm_mallocated;
+SCM_API unsigned long scm_gc_ports_collected;
SCM_API unsigned long scm_mtrigger;
-
-
SCM_API SCM scm_after_gc_hook;
SCM_API scm_t_c_hook scm_before_gc_c_hook;
diff --git a/libguile/gdbint.c b/libguile/gdbint.c
index b1ec99d2e..19ecfdf0d 100644
--- a/libguile/gdbint.c
+++ b/libguile/gdbint.c
@@ -101,48 +101,9 @@ int gdb_output_length;
int scm_print_carefully_p;
static SCM gdb_input_port;
-static int port_mark_p, stream_mark_p, string_mark_p;
-
static SCM gdb_output_port;
-static void
-unmark_port (SCM port)
-{
-#if 0
- SCM stream, string;
- port_mark_p = SCM_GC_MARK_P (port);
- SCM_CLEAR_GC_MARK (port);
- stream = SCM_PACK (SCM_STREAM (port));
- stream_mark_p = SCM_GC_MARK_P (stream);
- SCM_CLEAR_GC_MARK (stream);
- string = SCM_CDR (stream);
- string_mark_p = SCM_GC_MARK_P (string);
- SCM_CLEAR_GC_MARK (string);
-#else
- abort (); /* FIXME */
-#endif
-}
-
-
-static void
-remark_port (SCM port)
-{
-#if 0
- SCM stream = SCM_PACK (SCM_STREAM (port));
- SCM string = SCM_CDR (stream);
- if (string_mark_p)
- SCM_SET_GC_MARK (string);
- if (stream_mark_p)
- SCM_SET_GC_MARK (stream);
- if (port_mark_p)
- SCM_SET_GC_MARK (port);
-#else
- abort (); /* FIXME */
-#endif
-}
-
-
int
gdb_maybe_valid_type_p (SCM value)
{