From 92c48fc5e7f59ba3813cba60277f5c3f12bfb574 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 26 May 2014 18:11:58 -0700 Subject: remove unnecessary smob mark/free functions * guile/scm-arch.c (arscm_mark_arch_smob): * guile/scm-block.c (bkscm_mark_block_smob) (bkscm_mark_block_syms_progress_smob): * guile/scm-breakpoint.c (bpscm_mark_breakpoint_smob): * guile/scm-exception.c (exscm_mark_exception_smob): * guile/scm-frame.c (frscm_mark_frame_smob): * guile/scm-iterator.c (itscm_mark_iterator_smob): * guile/scm-lazy-string.c (lsscm_mark_lazy_string_smob): * guile/scm-objfile.c (ofscm_mark_objfile_smob): * guile/scm-pretty-print.c (ppscm_mark_pretty_printer_smob) (ppscm_mark_pretty_printer_worker_smob): * guile/scm-symbol.c (syscm_mark_symbol_smob): * guile/scm-symtab.c (stscm_mark_symtab_smob, stscm_mark_sal_smob): * guile/scm-type.c (tyscm_mark_type_smob, tyscm_mark_field_smob): * guile/scm-value.c (vlscm_mark_value_smob): Remove unnecessary mark functions. * guile/scm-symtab.c (stscm_free_sal_smob): Remove unnecessary free function. --- gdb/guile/scm-exception.c | 12 ------------ 1 file changed, 12 deletions(-) (limited to 'gdb/guile/scm-exception.c') diff --git a/gdb/guile/scm-exception.c b/gdb/guile/scm-exception.c index c892884..f773a7d 100644 --- a/gdb/guile/scm-exception.c +++ b/gdb/guile/scm-exception.c @@ -101,17 +101,6 @@ static unsigned long gdbscm_exception_count = 0; /* Administrivia for exception smobs. */ -/* The smob "mark" function for . */ - -static SCM -exscm_mark_exception_smob (SCM self) -{ - exception_smob *e_smob = (exception_smob *) SCM_SMOB_DATA (self); - - scm_gc_mark (e_smob->key); - return e_smob->args; -} - /* The smob "print" function for . */ static int @@ -665,7 +654,6 @@ gdbscm_initialize_exceptions (void) { exception_smob_tag = gdbscm_make_smob_type (exception_smob_name, sizeof (exception_smob)); - scm_set_smob_mark (exception_smob_tag, exscm_mark_exception_smob); scm_set_smob_print (exception_smob_tag, exscm_print_exception_smob); gdbscm_define_functions (exception_functions, 1); -- cgit v1.1