diff options
author | Andy Wingo <wingo@igalia.com> | 2014-05-26 18:11:58 -0700 |
---|---|---|
committer | Doug Evans <xdje42@gmail.com> | 2014-05-26 18:11:58 -0700 |
commit | 92c48fc5e7f59ba3813cba60277f5c3f12bfb574 (patch) | |
tree | 882bacce818e692f332777b40e351ac732bf76f3 /gdb/guile/scm-breakpoint.c | |
parent | b2715b270ae27eccefe8edbbacb3910bc7cc9383 (diff) | |
download | gdb-92c48fc5e7f59ba3813cba60277f5c3f12bfb574.zip gdb-92c48fc5e7f59ba3813cba60277f5c3f12bfb574.tar.gz gdb-92c48fc5e7f59ba3813cba60277f5c3f12bfb574.tar.bz2 |
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.
Diffstat (limited to 'gdb/guile/scm-breakpoint.c')
-rw-r--r-- | gdb/guile/scm-breakpoint.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/gdb/guile/scm-breakpoint.c b/gdb/guile/scm-breakpoint.c index 97621b8..7edb97d 100644 --- a/gdb/guile/scm-breakpoint.c +++ b/gdb/guile/scm-breakpoint.c @@ -73,19 +73,6 @@ static SCM internal_keyword; /* Administrivia for breakpoint smobs. */ -/* The smob "mark" function for <gdb:breakpoint>. */ - -static SCM -bpscm_mark_breakpoint_smob (SCM self) -{ - breakpoint_smob *bp_smob = (breakpoint_smob *) SCM_SMOB_DATA (self); - - /* We don't mark containing_scm here. It is just a backlink to our - container, and is gc'protected until the breakpoint is deleted. */ - - return bp_smob->stop; -} - /* The smob "free" function for <gdb:breakpoint>. */ static size_t @@ -1181,7 +1168,6 @@ gdbscm_initialize_breakpoints (void) { breakpoint_smob_tag = gdbscm_make_smob_type (breakpoint_smob_name, sizeof (breakpoint_smob)); - scm_set_smob_mark (breakpoint_smob_tag, bpscm_mark_breakpoint_smob); scm_set_smob_free (breakpoint_smob_tag, bpscm_free_breakpoint_smob); scm_set_smob_print (breakpoint_smob_tag, bpscm_print_breakpoint_smob); |