diff options
| author | Tom Tromey <tom@tromey.com> | 2022-05-24 16:55:04 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2022-07-28 14:16:50 -0600 |
| commit | 8f83e7b9262e08fa43ca6e645337511c68ddc52a (patch) | |
| tree | 169618c45b44699ea4126fe6c5c003cb14594a8e | |
| parent | bde539c2f9e19271d6d6c740f875b4129e03eba3 (diff) | |
Remove some unused functions from guile code
The guile code has a couple of unused functions that touch on the
registry API. This patch removes them.
| -rw-r--r-- | gdb/guile/guile-internal.h | 8 | ||||
| -rw-r--r-- | gdb/guile/scm-gsmob.c | 36 |
2 files changed, 0 insertions, 44 deletions
diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h index 28e4889bfa..4cdb7e355d 100644 --- a/gdb/guile/guile-internal.h +++ b/gdb/guile/guile-internal.h @@ -287,14 +287,6 @@ extern void gdbscm_init_chained_gsmob (chained_gdb_smob *base); extern void gdbscm_init_eqable_gsmob (eqable_gdb_smob *base, SCM containing_scm); -extern void gdbscm_add_objfile_ref (struct objfile *objfile, - const struct objfile_data *data_key, - chained_gdb_smob *g_smob); - -extern void gdbscm_remove_objfile_ref (struct objfile *objfile, - const struct objfile_data *data_key, - chained_gdb_smob *g_smob); - extern htab_t gdbscm_create_eqable_gsmob_ptr_map (htab_hash hash_fn, htab_eq eq_fn); diff --git a/gdb/guile/scm-gsmob.c b/gdb/guile/scm-gsmob.c index 5096f1c475..71fb263efd 100644 --- a/gdb/guile/scm-gsmob.c +++ b/gdb/guile/scm-gsmob.c @@ -206,42 +206,6 @@ gdbscm_gsmob_kind (SCM self) smobs with references to them. There are several smobs that reference objfile-based data, so we provide helpers to manage this. */ -/* Add G_SMOB to the reference chain for OBJFILE specified by DATA_KEY. - OBJFILE may be NULL, in which case just set prev,next to NULL. */ - -void -gdbscm_add_objfile_ref (struct objfile *objfile, - const struct objfile_data *data_key, - chained_gdb_smob *g_smob) -{ - g_smob->prev = NULL; - if (objfile != NULL) - { - g_smob->next = (chained_gdb_smob *) objfile_data (objfile, data_key); - if (g_smob->next) - g_smob->next->prev = g_smob; - set_objfile_data (objfile, data_key, g_smob); - } - else - g_smob->next = NULL; -} - -/* Remove G_SMOB from the reference chain for OBJFILE specified - by DATA_KEY. OBJFILE may be NULL. */ - -void -gdbscm_remove_objfile_ref (struct objfile *objfile, - const struct objfile_data *data_key, - chained_gdb_smob *g_smob) -{ - if (g_smob->prev) - g_smob->prev->next = g_smob->next; - else if (objfile != NULL) - set_objfile_data (objfile, data_key, g_smob->next); - if (g_smob->next) - g_smob->next->prev = g_smob->prev; -} - /* Create a hash table for mapping a pointer to a gdb data structure to the gsmob that wraps it. */ |