diff options
-rw-r--r-- | libguile/gc.c | 17 | ||||
-rw-r--r-- | libguile/gc.h | 7 | ||||
-rw-r--r-- | libguile/gdbint.c | 39 |
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) { |