From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1851) id 1B3C93858020; Tue, 9 Nov 2021 13:57:53 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 1B3C93858020 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Martin Liska To: gcc-cvs@gcc.gnu.org Subject: [gcc(refs/users/marxin/heads/remove-fortran-fn)] Remove dead Fortran function. X-Act-Checkin: gcc X-Git-Author: Martin Liska X-Git-Refname: refs/users/marxin/heads/remove-fortran-fn X-Git-Oldrev: 0dc0947d4b67af66a57f4824232bb8020b0403f7 X-Git-Newrev: aabde5724eb87f176697beb5b498db053617ac6a Message-Id: <20211109135753.1B3C93858020@sourceware.org> Date: Tue, 9 Nov 2021 13:57:53 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 09 Nov 2021 13:57:53 -0000 https://gcc.gnu.org/g:aabde5724eb87f176697beb5b498db053617ac6a commit aabde5724eb87f176697beb5b498db053617ac6a Author: Martin Liska 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