Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

remove unnecessary smob mark/free functions

Browse Source 
* 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.
This commit is contained in:
Andy Wingo
2014-05-26 18:11:58 -07:00
committed by Doug Evans
parent b2715b270a
commit 92c48fc5e7
14 changed files with 21 additions and 204 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
gdb/guile/scm-type.c
View File

@@ -181,14 +181,6 @@ tyscm_type_map (struct type *type)
return htab;
}
/* The smob "mark" function for <gdb:type>. */
static SCM
tyscm_mark_type_smob (SCM self)
{
return SCM_BOOL_F;
}
/* The smob "free" function for <gdb:type>. */
static size_t
@@ -412,16 +404,6 @@ save_objfile_types (struct objfile *objfile, void *datum)
/* Administrivia for field smobs. */
/* The smob "mark" function for <gdb:field>. */
static SCM
tyscm_mark_field_smob (SCM self)
{
field_smob *f_smob = (field_smob *) SCM_SMOB_DATA (self);
return f_smob->type_scm;
}
/* The smob "print" function for <gdb:field>. */
static int
@@ -1475,14 +1457,12 @@ void
gdbscm_initialize_types (void)
{
type_smob_tag = gdbscm_make_smob_type (type_smob_name, sizeof (type_smob));
scm_set_smob_mark (type_smob_tag, tyscm_mark_type_smob);
scm_set_smob_free (type_smob_tag, tyscm_free_type_smob);
scm_set_smob_print (type_smob_tag, tyscm_print_type_smob);
scm_set_smob_equalp (type_smob_tag, tyscm_equal_p_type_smob);
field_smob_tag = gdbscm_make_smob_type (field_smob_name,
sizeof (field_smob));
scm_set_smob_mark (field_smob_tag, tyscm_mark_field_smob);
scm_set_smob_print (field_smob_tag, tyscm_print_field_smob);
gdbscm_define_integer_constants (type_integer_constants, 1);