From b2715b270ae27eccefe8edbbacb3910bc7cc9383 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 26 May 2014 17:34:27 -0700 Subject: gdb smob cleanups * guile/guile-internal.h (GDB_SMOB_HEAD): Replace properties with empty_base_class. All uses updated. (gdbscm_mark_gsmob, gdbscm_mark_chained_gsmob) (gdbscm_mark_eqable_gsmob): Remove these now-unneeded functions. Adapt all callers. * guile/scm-gsmob.c (gdbscm_mark_gsmob) (gdbscm_mark_chained_gsmob, gdbscm_mark_eqable_gsmob): Remove. (gdbscm_gsmob_property, gdbscm_set_gsmob_property_x) (gdbscm_gsmob_has_property_p, add_property_name) (gdbscm_gsmob_properties): Remove, and remove them from gsmob_functions. * guile/lib/gdb.scm (gdb-object-property, set-gdb-object-property) (gdb-object-has-property?, gdb-object-properties): Remove. (gdb-object-kind): Renamed from gsmob-kind. doc/ * guile.texi (GDB Scheme Data Types): Remove documentation for removed interfaces. Update spelling of gdb-object-kind. testsuite/ * gdb.guile/scm-breakpoint.exp: * gdb.guile/scm-gsmob.exp: Update to use plain old object properties instead of gdb-object-properties. --- gdb/guile/scm-frame.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'gdb/guile/scm-frame.c') diff --git a/gdb/guile/scm-frame.c b/gdb/guile/scm-frame.c index 6031a7f..ee30597 100644 --- a/gdb/guile/scm-frame.c +++ b/gdb/guile/scm-frame.c @@ -135,10 +135,7 @@ frscm_inferior_frame_map (struct inferior *inferior) static SCM frscm_mark_frame_smob (SCM self) { - frame_smob *f_smob = (frame_smob *) SCM_SMOB_DATA (self); - - /* Do this last. */ - return gdbscm_mark_eqable_gsmob (&f_smob->base); + return SCM_BOOL_F; } /* The smob "free" function for . */ -- cgit v1.1