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

gdb smob cleanups

Browse Source 
* 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.
This commit is contained in:
Andy Wingo
2014-05-26 17:34:27 -07:00
committed by Doug Evans
parent 3ce6e97279
commit b2715b270a
22 changed files with 102 additions and 344 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -186,10 +186,7 @@ tyscm_type_map (struct type *type)
static SCM
tyscm_mark_type_smob (SCM self)
{
type_smob *t_smob = (type_smob *) SCM_SMOB_DATA (self);
/* Do this last. */
return gdbscm_mark_eqable_gsmob (&t_smob->base);
return SCM_BOOL_F;
}
/* The smob "free" function for <gdb:type>. */
@@ -422,9 +419,7 @@ tyscm_mark_field_smob (SCM self)
{
field_smob *f_smob = (field_smob *) SCM_SMOB_DATA (self);
scm_gc_mark (f_smob->type_scm);
/* Do this last. */
return gdbscm_mark_gsmob (&f_smob->base);
return f_smob->type_scm;
}
/* The smob "print" function for <gdb:field>. */