[9/9] Remove a useless Guile finalizer
Commit Message
* gdb/guile/scm-symtab.c (stscm_free_sal_smob): Remove useless free
function. (This was the only useless free function.)
---
gdb/guile/scm-symtab.c | 14 --------------
1 file changed, 14 deletions(-)
@@ -386,19 +386,6 @@ gdbscm_symtab_static_block (SCM self)
/* Administrivia for sal (symtab-and-line) smobs. */
-/* The smob "free" function for <gdb:sal>. */
-
-static size_t
-stscm_free_sal_smob (SCM self)
-{
- sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (self);
-
- /* Not necessary, done to catch bugs. */
- s_smob->symtab_scm = SCM_UNDEFINED;
-
- return 0;
-}
-
/* The smob "print" function for <gdb:sal>. */
static int
@@ -692,7 +679,6 @@ gdbscm_initialize_symtabs (void)
scm_set_smob_print (symtab_smob_tag, stscm_print_symtab_smob);
sal_smob_tag = gdbscm_make_smob_type (sal_smob_name, sizeof (sal_smob));
- scm_set_smob_free (sal_smob_tag, stscm_free_sal_smob);
scm_set_smob_print (sal_smob_tag, stscm_print_sal_smob);
gdbscm_define_functions (symtab_functions, 1);