diff options
Diffstat (limited to 'gdb/guile/scm-exception.c')
-rw-r--r-- | gdb/guile/scm-exception.c | 12 |
1 files changed, 0 insertions, 12 deletions
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 <gdb:exception>. */ - -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 <gdb:exception>. */ 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); |