mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

Fixed warnings due to unused stuff.

Browse source 
* 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
This commit is contained in:
Ludovic Courtes 2007-07-22 21:21:02 +00:00 • committed by Ludovic Courtès
parent e9b8556ec9
commit b74e86cf5f
3 changed files with 3 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/gc.c
View file

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

7
libguile/gc.h
View file

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

39
libguile/gdbint.c
View file

@ -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)
{