diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2007-07-22 21:21:02 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-10 22:45:59 +0200 |
commit | b74e86cf5f50612742609210ad8e04d46069437f (patch) | |
tree | 7cf0ee0f9a5875acd4ea17f77c02ff6856925faa /libguile/gdbint.c | |
parent | e9b8556ec92039396e740620238d56a3748f2a99 (diff) | |
download | guile-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
Diffstat (limited to 'libguile/gdbint.c')
-rw-r--r-- | libguile/gdbint.c | 39 |
1 files changed, 0 insertions, 39 deletions
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) { |