From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1851) id 108C43858404; Tue, 9 Nov 2021 16:53:43 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 108C43858404 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Martin Liska To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-5066] Remove dead Fortran function. X-Act-Checkin: gcc X-Git-Author: Martin Liska X-Git-Refname: refs/heads/master X-Git-Oldrev: 5aa7a09369a7258793e364431d3945e8c3b94044 X-Git-Newrev: 3bc3f6cefc2b92d368affacb74928948388c4786 Message-Id: <20211109165343.108C43858404@sourceware.org> Date: Tue, 9 Nov 2021 16:53:43 +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 16:53:43 -0000 https://gcc.gnu.org/g:3bc3f6cefc2b92d368affacb74928948388c4786 commit r12-5066-g3bc3f6cefc2b92d368affacb74928948388c4786 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