public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
From: Martin Liska <marxin@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc(refs/users/marxin/heads/remove-fortran-fn)] Remove dead Fortran function.
Date: Tue,  9 Nov 2021 13:57:53 +0000 (GMT)	[thread overview]
Message-ID: <20211109135753.1B3C93858020@sourceware.org> (raw)

https://gcc.gnu.org/g:aabde5724eb87f176697beb5b498db053617ac6a

commit aabde5724eb87f176697beb5b498db053617ac6a
Author: Martin Liska <mliska@suse.cz>
Date:   Tue Nov 9 14:57:00 2021 +0100

    Remove dead Fortran function.
    
    gcc/fortran/ChangeLog:
    
            * symbol.c (gfc_get_ultimate_derived_super_type): Remove.

Diff:
---
 gcc/fortran/symbol.c | 17 -----------------
 1 file changed, 17 deletions(-)

diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 8c9a1d00ce0..173c36f51bc 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -5106,23 +5106,6 @@ gfc_get_derived_super_type (gfc_symbol* derived)
 }
 
 
-/* Get the ultimate super-type of a given derived type.  */
-
-static gfc_symbol*
-gfc_get_ultimate_derived_super_type (gfc_symbol* derived)
-{
-  if (!derived->attr.extension)
-    return NULL;
-
-  derived = gfc_get_derived_super_type (derived);
-
-  if (derived->attr.extension)
-    return gfc_get_ultimate_derived_super_type (derived);
-  else
-    return derived;
-}
-
-
 /* Check if a derived type t2 is an extension of (or equal to) a type t1.  */
 
 bool


                 reply	other threads:[~2021-11-09 13:57 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20211109135753.1B3C93858020@sourceware.org \
    --to=marxin@gcc.gnu.org \
    --cc=gcc-cvs@gcc.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).