diff options
| author | Andy Wingo <wingo@igalia.com> | 2014-05-26 17:34:27 -0700 |
|---|---|---|
| committer | Doug Evans <xdje42@gmail.com> | 2014-05-26 17:34:27 -0700 |
| commit | b2715b270ae27eccefe8edbbacb3910bc7cc9383 (patch) | |
| tree | ce6fc357f9c5618a691f7b1bd06446e439fecd21 /gdb/guile/scm-symtab.c | |
| parent | 3ce6e9727987728ad8afa28ecfdece0375501988 (diff) | |
| download | gdb-b2715b270ae27eccefe8edbbacb3910bc7cc9383.zip gdb-b2715b270ae27eccefe8edbbacb3910bc7cc9383.tar.gz gdb-b2715b270ae27eccefe8edbbacb3910bc7cc9383.tar.bz2 | |
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.
Diffstat (limited to 'gdb/guile/scm-symtab.c')
| -rw-r--r-- | gdb/guile/scm-symtab.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/gdb/guile/scm-symtab.c b/gdb/guile/scm-symtab.c index 7294fea..845b13f 100644 --- a/gdb/guile/scm-symtab.c +++ b/gdb/guile/scm-symtab.c @@ -127,10 +127,7 @@ stscm_objfile_symtab_map (struct symtab *symtab) static SCM stscm_mark_symtab_smob (SCM self) { - symtab_smob *st_smob = (symtab_smob *) SCM_SMOB_DATA (self); - - /* Do this last. */ - return gdbscm_mark_eqable_gsmob (&st_smob->base); + return SCM_BOOL_F; } /* The smob "free" function for <gdb:symtab>. */ @@ -407,10 +404,7 @@ stscm_mark_sal_smob (SCM self) { sal_smob *s_smob = (sal_smob *) SCM_SMOB_DATA (self); - scm_gc_mark (s_smob->symtab_scm); - - /* Do this last. */ - return gdbscm_mark_gsmob (&s_smob->base); + return s_smob->symtab_scm; } /* The smob "free" function for <gdb:sal>. */ |