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-arch.c | 9 --------- 1 file changed, 9 deletions(-) (limited to 'gdb/guile/scm-arch.c') diff --git a/gdb/guile/scm-arch.c b/gdb/guile/scm-arch.c index aa170f0e6df..0b3e95ae6d9 100644 --- a/gdb/guile/scm-arch.c +++ b/gdb/guile/scm-arch.c @@ -48,14 +48,6 @@ static int arscm_is_arch (SCM); /* Administrivia for arch smobs. */ -/* The smob "mark" function for . */ - -static SCM -arscm_mark_arch_smob (SCM self) -{ - return SCM_BOOL_F; -} - /* The smob "print" function for . */ static int @@ -655,7 +647,6 @@ void gdbscm_initialize_arches (void) { arch_smob_tag = gdbscm_make_smob_type (arch_smob_name, sizeof (arch_smob)); - scm_set_smob_mark (arch_smob_tag, arscm_mark_arch_smob); scm_set_smob_print (arch_smob_tag, arscm_print_arch_smob); gdbscm_define_functions (arch_functions, 1); -- cgit v1.2.1