From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2126) id BF30B3857C45; Thu, 28 Jul 2022 20:44:11 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org BF30B3857C45 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable From: Tom Tromey To: gdb-cvs@sourceware.org Subject: [binutils-gdb] Remove some unused functions from guile code X-Act-Checkin: binutils-gdb X-Git-Author: Tom Tromey X-Git-Refname: refs/heads/master X-Git-Oldrev: bde539c2f9e19271d6d6c740f875b4129e03eba3 X-Git-Newrev: 8f83e7b9262e08fa43ca6e645337511c68ddc52a Message-Id: <20220728204411.BF30B3857C45@sourceware.org> Date: Thu, 28 Jul 2022 20:44:11 +0000 (GMT) X-BeenThere: gdb-cvs@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 28 Jul 2022 20:44:11 -0000 https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3D8f83e7b9262e= 08fa43ca6e645337511c68ddc52a commit 8f83e7b9262e08fa43ca6e645337511c68ddc52a Author: Tom Tromey Date: Tue May 24 16:55:04 2022 -0600 Remove some unused functions from guile code =20 The guile code has a couple of unused functions that touch on the registry API. This patch removes them. Diff: --- gdb/guile/guile-internal.h | 8 -------- gdb/guile/scm-gsmob.c | 36 ------------------------------------ 2 files changed, 44 deletions(-) diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h index 28e4889bfa9..4cdb7e355d7 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_smo= b *base); extern void gdbscm_init_eqable_gsmob (eqable_gdb_smob *base, SCM containing_scm); =20 -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); =20 diff --git a/gdb/guile/scm-gsmob.c b/gdb/guile/scm-gsmob.c index 5096f1c475a..71fb263efdd 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. */ =20 -/* 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 =3D NULL; - if (objfile !=3D NULL) - { - g_smob->next =3D (chained_gdb_smob *) objfile_data (objfile, data_ke= y); - if (g_smob->next) - g_smob->next->prev =3D g_smob; - set_objfile_data (objfile, data_key, g_smob); - } - else - g_smob->next =3D 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 =3D g_smob->next; - else if (objfile !=3D NULL) - set_objfile_data (objfile, data_key, g_smob->next); - if (g_smob->next) - g_smob->next->prev =3D g_smob->prev; -} - /* Create a hash table for mapping a pointer to a gdb data structure to the gsmob that wraps it. */