aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Tromey <tom@tromey.com>2022-05-24 16:55:04 -0600
committerTom Tromey <tom@tromey.com>2022-07-28 14:16:50 -0600
commit8f83e7b9262e08fa43ca6e645337511c68ddc52a (patch)
tree169618c45b44699ea4126fe6c5c003cb14594a8e
parentbde539c2f9e19271d6d6c740f875b4129e03eba3 (diff)
downloadgdb-8f83e7b9262e08fa43ca6e645337511c68ddc52a.zip
gdb-8f83e7b9262e08fa43ca6e645337511c68ddc52a.tar.gz
gdb-8f83e7b9262e08fa43ca6e645337511c68ddc52a.tar.bz2
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.h8
-rw-r--r--gdb/guile/scm-gsmob.c36
2 files changed, 0 insertions, 44 deletions
diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h
index 28e4889..4cdb7e3 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 5096f1c..71fb263 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. */